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MEMO, RPG If 
REFERENCE GUIDE 


This manual serves as an introduction to the MEMOREX RPG II 
System. It bade a general description of the report program 
generator and the various specifications that compose its unique 
programming language. 


section 1 provides a system overview, reviews the types of 
specification sheets, and discusses the overall performance of 
the system. 


Sections 2 through 8 deal with the use of RPG II’s programming 
language. Each section is devoted to one type of specifications 
sheet and the coded information that is to be specified on it. 


Appendices A through C provide a detailed flowchart of the 
Memorex RPG II system, supplementary reference tables, and 
definitions of RPG II terminology. 


Appendix D contains a formula for computing block lengths, while 
Appendix E describes RPG II subroutine linkage and the parameters 
for special files. 


Control Language Statement considerations and examples appear in 

Appendix F. Further information on this subject appears in 

ie cele publication  2200.004: Control Language Services—— 
ended. 


Appendix G contains an explanation of the error message format 
and lists the error messages by the overlay in which they appear. 


Appendix H describes the operational environment for the RPG II 
compiler and gives the operator options in response to error 
conditions. 


Future releases of the RPG II Reference Guide will include these 
additions: | 


e A sample program and programming tips. 


e Coding examples for tables and arrays, indicator 
assignment, and outrut features. 


Memorex brochure 2282.003, RPG II Reference Summary, provides a 
condensed version of the information found in this manual. 
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SECTION 1. INTRODUCTION 


RPG II OVERVIEW 


MEMOREX RPG II is a report program generator which consists of a 
unique symbolic programming language and a compiler which 
translates that language into machine instructions. The System 
executes as an application under control of the Memorex Operating 
System (MRX/OS). 


MEMOREX RPG II is a straightforward system that is readily 
adaptable to most programming Situations and capable of managing 
complex problem situations efficiently. The System is designed to 
assist the programmer in organizing job requirements to handle a 
number of important functions with minimum effort. Through simple 
language entries on specially designed coding sheets, the 
programmer can use RPG II to perform extensive caiculations; to 
design routines which handle tables and arrays simultaneously; to 
create tape, disc, punched-card, or console files; to update 
existing disc files; and ultimately to generate reports that are 
tailored to a wide variety of user applications. Because of its 
complete flexibility, RPG II can thus be used for almost any 
business data processing application. 


An RPG II application is accomplished in three job stages: 


Analysis 
Compilation 
Execution 


During . the Analysis Stage, the programmer is involved in 
organizing his information and determining the information that 
is to be generated. He decides what input data, output format, 
and calculations are necessary, and codes the information he has 
gathered in symbolic programming Janguage. In this manner, he 
creates the source program, which is then punched into cards to 
form the source program deck. 
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Figure 124. RPG If System Processing Overview. 
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In the Compilation Stage, the compiler translates the source 
program dec into machine language instructions. Much of the 
program detail implied by the programmer is ve ene added by the 
compiler; the compiler, for instance, assigns the proper disc 
storage areas and creates routines for such functions as 
input/output control. At the end of the compilation process the 
object program that has been generated is ready for the Linkage 
Fditor to prepare it for load module execution of the 
programer’s instructions. 


It is during the third stage, the execution of the object 
progran, that the newly generated machine language instructions 
manipulate information from the data input files to produce 
output files and reports. In this stage calculations are 
performed; new files are created on disc, tape, punched cards, or 
the console; existing disc files are updated; information is 
merged for various purposes; and single or multiple reports are 
generated. (See Appendix A for a detailed flowchart of the object 
program cycle.) 


This three-stage approach to report generation assists’ the 
programmer in concentrating on each individual area of activity. 
The special programming Janguage increases source program code 
efficiency and the automatic compiler interpretation frees the 
poner from delving into detailed machine language logic. 
IEMOREX REG JI is a versatile, easy-to-use method of report 
program generation. 


Analysis of the three stages shows that each can be further 
subdivided into chronological steps. Figure 1-1 diagrams the 
seven operating steps in the three stages and shows the easy, 
natural flow of the entire process from the program design (Step 
1) to the generation of multiple reports and the output files 
(Step 7). The steps are described in more detail below. 


STAGE ONE: ANALYSIS 


Step 1 -— The programmer analyzes the job requirements 
and organizes all available information. 


Step 2 — The programmer codes the job requirements on the 
proper RPG II specifications sheets: 


Control Card and File Description 
Extension and Line Counter - 
Input 

Calculation 

Out put~Format 


Step 3 - 
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The data is transferred from the specifications 
sheets to punched cards. Each line ofa 

specification sheet is punched onto one card, 

Aon ae completed cards form the source program 
eck. 


STAGE TWO: COMPILATION 


step 4 - Either the source program deck is placed in a 


Step 5 — 


card-reading device and read into computer 

storage, where the compiler progran translates 

the source program into the object program 

umer control of the MEMOREX System; or the deck 

is put in @ source library and read from the library 

by the compiler. ‘The resulting, object program contains 
all the machine instructions required to produce the 
output files and reports, but must be linkedited 

before its actual execution. | 


The programmer corrects errors and the program is 
recompiled until all serious errors are eliminated. 
The object program is then stored on the disc as a 
relocatable object module, ready to be linkedited. 
The linkage editor then ties together all subroutines 
required by the program. When this has been accom 
plished, the object program is ready for execution. 


STAGE THREE: EXECUTION 


Step 6- 


Step 7 - 


The load module is read into computer storage and 
executed. Under control of the load module, the 
System reads and processes data from available 
input files specified by the programmer. 


The processed data is moved into the specified 
format by the load module and punched into cards, 
written on disc, printed in the form of one or more 
reports, or written to the console. 
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STAGE ONE: ANALYSIS 


As Figure 1-1 shows, the Analysis stage of the System comprises 
three steps: organizing the requirements, coding the 
specifications, and punching the source cards. 


STEP 1 — ORGANIZING THE REQUIREMENTS 


The first step in the process of generating output files or 
reports is to organize the job requirements. The programmer 
identifies the information which is to be output and the format 
it is to take, selects the input fields he can use, and 
determines the calculations which must be performed to generate 
the remainder of the output information. He also decides whether 
the information is to be generated on punched cards, disc, 
printed pages, or the console, and identifies the necessary 
system devices to be used. A chart showing the flow of 
information through the various calculations and decision 
functions may be helpful in analyzing output requirements. 


After the programmer has determined his requirements and the 
sequence in which they are to be performed, he is ready to 
transfer the information to the RPG II Specifications Sheets. The 
specifications sheets deal with seven distinct areas of 
information, some of which is mandatory and some of which is 
optional. The sheets are designed to guide the programmer in 
ene information and coding the language with a minimum of 
work. 


STEP 2 — CODING THE SPECIFICATIONS 


MEMOREX RPG II programming language is coded on five 
specifications sheets. Collectively the specifications sheets 
provide the programmer with forms for coding his source 
information. Individually each form deals with a distinct area of 
concern such as the input to be used, the format of the output, 
or calculations that are to be performed. Fach specifications 
sheet listed below is discussed in detail in its own section of 
this manual. 
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The Control Card and File Description Specifications Sheet 
serves a dual function. The control card section provides 
the compiler with pertinent information about the source 
program and the system being employed. The file description 
portion describes the organization and characteristics of 
the input and output files required by the object program. 


The Extension and Line Counter Specifications Sheet also 
contains two types of specifications. The extension section 
describes the record address files, tables, and arrays 
required in the job. The line counter lines associate 
channel numbers of the printer carriage control with report 
lines of printer reports so that they can then be output to 
the disc, instead of the printer. 


The Input Specifications Sheet identifies the input records 
and defines the fields contained in each record type. 


The Calculation Specifications Sheet details any arithmetic 
processing or data manipulation that is to be performed on 
the input data. 


The Output—Format Specifications Sheet describes the type of 


data that is to be written or punched and specifies its 
arrangement. 


STEP 3 — PUNCHING THE SOURCE PROGRAM DECK 


The final step in the Analysis Stage occurs after the 
specifications sheets coding has been completed. The sheets are 
arranged in a specified order and submitted for keypunching. Each 
line of data is transferred to one punched card. When all the 
coded specifications sheets have been converted to punched cards, 
the cards are put in order to form the source program deck 
(Figure 1-2). Since a source program does not necessarily require 
that all the specifications sheets be coded, those corresponding 
oot Fact the source deck that may optionally be included are 
indicated. 


The creation of the source program deck concludes Stage One of 
RPG II System generation. 
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Figure 1-2. Source Program Deck. 
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Figure 1-3. RPG II Compiler Structure. 
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STAGE TWO: COMPILATION 


In Stage Two, the emphasis shifts fror the language to the 
compiler that converts the source program deck into machine 
language instructions (Figure 1-3). 


The Compilation Stage of the report generator is divided into two 
steps: compiling the source program, and linkediting the 
translated program for execution as a load module. 


STEP 4 — COMPILING THE SOURCE PROGRAM 


The RPG II compiler contains approximately 25,00C instructions 
plus object time Subroutines, data management routines, tables, 
and buffers. ‘The compiler is designed for batch processing, and 
uses a two-pass mode of operation: scan, and code generation. It 
consists of one resident module, which is the executive routine; 
and four main phases with fifteen overlays. 


To understand the way the compiler works, the six divisions 
within the compiler must be examined. The executive routine 
contains the input/output interfaces, table lookup routines, and 
other common subroutines. It is the primary section of the 
compiler and is always present in computer storage during 
compilation. The other five parts are called phases. They are the 
Syntax Phase, the Table erflow Phase, the Code Generation 
Phase, the Code Formatter Phase, and the Cross-Reference Phase. 


The Syntax Phase scans the control card, the file descriptions, 
and all the other input cards, checking the accuracy of the 
source program deck and locating errors in format and content. 


The Table Overflow Phase monitors resident field tables and 
initiates special passes, when necessary, to correct table 
overflows. | 


The Code Generation Phase does the actual translation, converting 
the source program into machine language instructions, and 
processing any compile time tables and arrays. 


The Code Formatter Phase lists error messages, the source 
program, a memory map, external references, and entry points; 
then completes the compilation activity by writing out the 
generated object program in relocatable format. 
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The Cross-Reference Phase is optional; it produces a 
cross-reference list of file names, field names, and indicators, 
along with their storage locations. The data length and type 
(numeric or alphanumeric) are included for field names. 


The minimm machine configuration required for compiling and 
executing an RPG II program consists of the following: 


16K bytes of computer storage (K = 1,024). 8K bytes of 
computer storage are required for the compiler and its 
tables, and &K ee are necessary for the Operating Systen, 
including its tables and buffers. 


One disc storage unit. 
One central processing unit. 
One operator’s console (printer keyboard). 


Any devices necessary to the object program, such as a card 
reader, a printer, or tape units. 


Compilation time is a product of machine size and the number of 
field names and statements used in the source program. 


The size of the source program is not limited in using the 

MEMOREX RPG II System, but the object program generated during 
compilation is limited to 64K bytes of computer storage (K = 
9Vet je : 


fo initiate the process of compilation, the source program deck 
is placed in a card—reading device and read into main storage. 
Compilation then takes place without further programmer 
intervention. The source program instructions are processed 
through the four phases of the compiler and an object program is 
generated. 


STEP 5 — PREPARING THE OBJECT PROGRAM FOR EXECUTION 


The object program is automatically stored on disc by the System. 
Once compilation is completed the System also provides a listing 
of the object program and a list of any errors it has detected, 
so that the programmer can uncertake corrective measures. After 
corrections are made to the source program, compilation is 
repeated until all errors are rectified. 


The resulting error-free object program is a relocatable object 
module which is suitable for input to the linkage editor. This 
module contains external references to every subroutine it 
requires, so that it can be linked automatically with those 
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subroutines via the linkage editor. Supplied by the compiler 
automatically, the external references consist of fields, entry 
panes or program names and include all RPG II subroutines, all 
ogical input/output subroutines, and any EXIT or ULABL names in 
the RPG II program (see Section 7, "Operation Codes"). | 


Stage Two is completed when an error-free object program has been 
successfully generated and linkedited. The program is then ready 
to be executed as a load module to perform calculations, create 
or update files, generate reports, or fulfill other purposes. 


STAGE THREE: EXECUTION 


The Execution Stage takes care of thm last two steps of the RPG 
II System: executing the object program, and generating the 
desired output. Before the programmer can execute the object 
program, it must be read from the disc on which it is stored into 
the System, where it can control the System in processing input 
data as the data is read in from input files. 


STEF 6 — EXECUTING THE OBJECT PROGRAM 


RPG II program logic consists of six primary segments: 
housekeeping, detail operations, input operations, total 
calculations, total output operations, and detail calculations. 
The detail operations through detail calculations segments 
constitute the sic RPG II operating cycle. 


Housekeeping tasks are performed prior to System entrance to the 
operating cycle. Housekeeping tasks include opening all files to 
be used in the program, pre-execution tables and array loading 
(after which the files are closed), and first page output. 


Detail operations are performed at the beginning of the operating 
cycle. Heading and detail records are written and various program 
indicators are set off before the System proceeds to the next 
segment. 


In the input operations segrent, one input record is read and 
identified per cycle. The System selects the appropriate record 
(multifile input) for processing. 
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HOUSEKEEPING 


Open all files. Load pre-execution 
tables and arrays. Perform first 
page (1P) output. 


DETAIL CALCULATIONS 


Set matching record indicator (MR) DETAIL OPERATIONS 


on or off. Make selected record 


data available for processing. Write heading and detail output. 


Turn off record identifying, level, 
first page, and halt indicators. 


TOTAL OUTPUT OPERATIONS INPUT OPERATIONS 


Read, identify, and select a record 
for processing, Set on control level 
indicators if acontrol break occur- 
red. 


Write all total records to disc, 
tape, or printer, or punch totals 
information into cards for output. 


TOTAL CALCULATIONS 


“ity 
4 Perform total catculations accord- 
ing to control level indicators. 


| Somer memento ane IA SE ETE TR EE EI DOTA RAT 


Figure i-4. Object Program Operating Cycle. 
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In the next segment, total calculations are performed on the 
selected record for any control level indicators (LO-L9, IR) 
which are on. Although indicator LO is always on, the others may 
be set on either by the programmer, or by a control break caused 
by a change in a selected control field. Total calculations are 
always done after each control break, and again after the last 
record has been processed. The operations to be performed in this 
segment are dictated by the status of specified control level 
indicators. 


All records conditioned as totals by output indicators are 
written in the total output operations segment. End-of-—job 
rocessing is initiated during this segment if the last record 
LR) indicator is on. 


The detail calculations segment includes setting the matching 
record (MR) indicator on or off. Data from the record selected 
for processing in the input operations segment is made available 
as the subject of detail calculations. 


STEP 7 — GENERATING THE REPORT 


The output of Stage Three is the report designed by the 
programmer in Stage One. The MEMOREX RPG II System helps create 
the report by providing, via language specifications sheets, a 
means of interpreting and coding the report requirements first 
devised the programmer. During compilation, these requirements 
are translated into machine language instructions. The final step 
in the report generation process is the production of the report 
resulting from the programmer’s specifications and the input 
data. 
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CODING INSTRUCTIONS FOR COMMON ENTRIES 


Although each RPG II specifications sheet requires coding 
instructions peculiar to the type of specification, certain of 


the required Cntries are common to all the specifications sheets. 
These are: 


PAGE NUMBER Colums 1~2 


LINE NUMBER Columns 3-5 
TYPE OF FORM Column 6 
COMMENTS | Column 7 


PROGRAM IDENTIFICATION Columns ‘75-80 


General rules can be applied in coding eneee. entries for all the 
specifications sheets. 


PAGF NUMBER (Columns 1~2) 


Entry | Description 
01-99 Specifications sheets are numbered 
sequentially. 


More than one of each type of specifications sheet, except the 
control card specifications sheet, may be used in the course of 
coding the source program. To keep the sheets in the rrorer 
order, the coded forms must be grouped together sequentially and 
arranged by type of specifications sheet in the following order: 

Control Card and File Description 

Extension and Line Counter 

Input 

Calculation 


Output—Fornat 
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The specifications sheets should then be numbered in ascendinge 
sequence. 


LINE NUMPER (Columns 3-5) 


Entry Description 
Any number Line numbers are assirned in ascendine 
sequence. 


Line numbers are preprinted in columns 3-4 of the specifications 
sheet for the programmer’s convenience (the control card 
specification line is always 01). The unnumbered lines below the 
prerrinted numbers can be used for additional lines or to insert 
a iline between completed lines. Column 5 can also be used for 
this purvnose. The line numbers assirned need not be consecutive, 
but they must be in ascending order. 


TYPE OF FORM (Column 6) 


fi Control Card Specifications Sheet (header 
card). 

F File Description Specifications Sheet. 

E Extension Specifications Sheet. 

L Line Counter Specifications Sheet. 

T Input Specifications Sheet. 

C Calculation Specifications Sheet. 

Co Output—Format Specifications Sheet. 


Column 6 contains a preprinted letter on all sheets which 
identifies the type of srnecifications for each line. 
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COMMENTS (Columns 7-80) 


Entry Description 

* (followed Annotation to assist the programmer in 
by any char— clarifying the prorram listing. 

acters 


Comments may be inserted in any of the specifications cards by 
entering an asterisk in column 7 and any characters in the 
renaining columns for programmer notations. The compiler then 
rrocesses only the first seven characters on the card, and 
lenores columns 8 through 8&0. 


PROGRAM IDENTIFICATION (Columns 75-8) 


Entry | Description 

Blank A prorram identification of RPGOBJ is 
assumed. 

Valid RPG The prorram identification should be a 

II name unique name for the object prorram. 


The program identification can be one to six characters lonr. The 
comriler processes the name coded on the control card only; 
columns ‘75-@O are ignored on all other card tyres, but anpear on 
the source listing. The name must berin with a character from A 
to Z. Other characters in the name may be A — Z, 0 - 9, and the 
pound sign (//), dollar sien ($), or at sign (@); but no imbedded 
blanks may be used. No special characters are allowed in the 
name. 
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SECTION 2. CONTROL CARD SPECIFICATIONS 


RE EE 


Each RPG II source program deck must begin with a control card. 
The specifications on this card provide the compiler with 
information necessary to translate the source program into an 
object program. This information is derived from entries on the 
control card specifications portion of the RPG II Control Card 
and File Description Specifications Sheet (Figure 2-1). Since 
each source program requires only one control card, a single 
coding line is provided on the specifications sheet. 
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Figure 2~1. RPG II Control Card and File Description 
, Specifications Sheet. 


CODING INSTRUCTIONS 


betailed descriptions of the control card entries to be coded on 
the specifications sheet are defined below. 
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PAGE NUMBER (Columns 1-2) 


Entry Description 
01 a control card page number is always 
O01. 


More than one of each type of specifications sheet, other than 
the control card, may be used in the course of coding the source 
program. To keep the sheets in the proper order, the coded sheets 
must be grouped according to their type and arranged in the 
following order: 


Control Card and File Description 
Extension and Line Counter 

Input 

Calculation 

Output-Fornmat 


The specifications sheets should then be numbered in ascending 
sequence. 


LINE NUMBER (Columns 3-5) 


Entry Description 
O01 The control card specification line 


is always O1 and is preprinted in 
the specifications sheet. 


TYPE OF FORM (Column 6) 


Entry Description 
H H identifies the control. card 


specifications to the compiler. 
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OBJECT OUTFUT (Column 10) 


Entry Description 
Blank The program is saved in the object library. 


Any EBCDIC The object program is not to be written into 
character the object library. 


An EBCDIC character entered in column 10 prevents the object 
program from being written into the object library for execution. 
The disposition of the object program is then determined by 
MRX/OS Control Language Statement cards. If the column is left 
blank, the object program will be written to the object library. 


STORAGE NEEDED TO EXECUTE (Columns 12-14) 


Entry Description 
Blank The amount of computer storage needed 


for execution is the same as 
that required for compilation. 


004-064 The amount of computer storage needed for 
execution is entered when it differs 
from the amount of available storage. 


The computer storage allotment is made in multiples of 1K bytes 
of storage, with K equal to 1,024. The entry must be at least 
004. Even when an entry is thought to be unnecessary, careful 
consideration must be given to the amount of storage the object 
program will require. 


DEBUG CODE (Column 15) 


Entry Description 
Blank If the DEBUG command is specified, it 


is to be ignored; no DEBUG operation — 
is to be performed. 


1 A DEBUG operation is to be performed. 
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Two entries are required to perform a DEBUG operation. In 
addition to the 1 entered in column 15 of the control card 
specifications, the DEBUG operation code should be entered on the 
Calculation pecifications Sheet (see Section 7, "Debug 
Operation"). 


INVERTED PRINT (Column 21) 


Entry Description 

Blank Domestic format is to be used. 

D United Kingdom format is to be 
used. 

i European Convention format is to 
be used. 

J European Convention format is to 


be used with leading zeros 
remaining for zero balances. 


The inverted print entry determines the format and punctuation 
used for numeric literals, the edit codes used on output, and the 
order of the UDATE field (see Section 8, columns 32-37). The 
inverted print resulting from the format chosen is shown in 


ZERO SUPPRESSION 
TO LEFT OR RIGHT 
OF DECIMAL POINT 


NUMERIC LITERAL, 
INVERTED PRINT PERIOD OR COMMA 
OPTION AS DECIMAL. POINT 


EDIT CODES WITH 
PERIOD OR COMMA 
AS DECIMAL POINT 


UDATE SHOWING 
SLASH OR COMMA 


1234.56 9,876.54 MM/DD/YY 
1234.56 9,876.54 DD/MM/YY 
1234,56 9.876,54 DD.MM.YY 
1234,56 9.876,54 DD.MM.YY 


Figure 2-2. Inverted Print. 
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COLLATING SEQUENCE (Column 26) 


Entry Description 

Blank Normal collating sequence is to 
be used. 

S or T An alternate collating sequence 


is to be used. 


The relative position each alphabetic, numeric, and special 
character holds in relation to the other characters is called the 
collating sequence. When the normal RPG II collating sequence 
(Figure 2-3) is to be used, column 26 of the control card 
specification is left blank. 


MEMOREX Alternate Collating Sequence and Translation Coding Sheet 
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Figure 2+3. Alternate Collating Sequence and 
Translation Coding Sheet 


To change the collating sequence, two types of entries must be 
nade. First, an S or T must be placed in column 26 of the Control 
Card and File Description Specifications Sheet. These two letters 
both cause the collating sequence to be changed, and may be used 
interchangeably. Next, the alternate collating sequence must be 
coded on the Alternate Collating Sequence and Translation Coding 
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Sheet for punching into change record cards. The alternate 
collating sequence delineates the changes to_ be made in the 
normal jocollating sequence; it applies only to matching 
alphanumeric fields, alphanumeric compare operations (see Section 
7, “Compare and Testing Operations") and sequence checking. An 
alternate collating sequence does not affect control levels, 
numeric comparisons, or lookup (see Section 7, “Lookup 
Operations"). 


To cause characters to appear in a sequence different from that 
used by the computer, or to cause two or more characters to be 
considered equal (have the same position in the sequence), the 
alternate collating sequence must be punched into change record 
cards in the following format: 


Positions Description 


1-6 ALTSEQ is entered to identify the entry 
as one which alters the normal collating 
sequence. 

/[-8 These positions are left blank. 

9-10 The hexadecimal number of the character 


whose normal collating sequence is being 
replaced is entered (see Figure 2-3). 


11~12 The hexadecimal number of the character 
which is to replace the character 
entered in columns 910 is written. 


15-16, These positions are used in the same 
17-20, manner as positions 9-i2. The first two 
21-24, positions contain the character to be 
etc. replaced. The second two positions 


contain the character doing the 
replacing. The first blank position 
determinés the end of the record. As 
many four—position entries may be made 
as are necessary to complete the 
sequence changes. Additional records 
of the same format may also be used. 


The change record cards then form the alternate collating 
sequence table. The table must be preceded by a beginning record 
and followed by an ending record. The preceding record is coded 
with **% in positions 1-3, where }% indicates a blank position. 
The remaining positions of the preceding record may be used for 
comments or left blank. 
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The ending record is coded in one of two ways. If the ending 
record is the last card in the source deck, positions 1~2 are 
coded with /*. If additional tables and arrays other than the 
alternate collating sequence table are to be added (see Section 
4, “Tables and Arrays"), positions 1-2 are coded with **, | 


Figure 2-4 shows an example of coding for a change in the 
collating sequence. All records begin in column 1. 


OBJECTIVE: TO CHANGE THE COLLATING SEQUENCE OF “A” TO “Q.” 


PRECEDING RECORD 


Figure 2-4. Example of a Change in Collating Sequence. 


TABLE LOOKUP (Column 34) 


Entry Description 
Blank | Either no table lookup is used, or 


table lookup with sequential search 
is to be used. 


B Binary search is to be used for 
table lookup. Oo 


If large tables in ascending or descending sequence are used, the 
binary search specification (B) saves time; however, space can be 
saved by not using the binary search if the tables are small, if 
they are rarely used, or if a few entries which will be 
referenced often are put at the beginning of the table. 
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SIGN PROCESS (Column 40) 


Entry Description 
Blank Numeric input fields and tables are 


to be checked for a valid sign. 


N Except for input fields from tape 
and disc, numeric input fields and 
tables are to be checked for a valid 
sign. 


5 Standard signs are to be provided for 
all numeric fields, tables, and 
literals, and for packed numeric 
output fields. 


I Input fields are not to be checked 
for valid signs. 


Go No sign is to be forced on output 
fields and output tables. 


B Sign forcing is to occur on literals 
(see Section 7, “Literals"), input 
from tables, and the MOVE, MOVEL, and 
move zone operations (see Section 7, 
"Operation Codes"). 


several significant details must be kept in mind when the sign 
process specification is used: 


On the MRX machines all bit combinations carry valid signs 
in arithmetic operations, so thai these options are availale 
for compatibility with other types of RPG II. 


In the blank and N sign process specifications, any invalid 
signs are changed to the positive C sign when they are 
encountered in numeric input fields. 


In the S specification, the standard hexadecimal C is 
provided for positive contents, and the hexadecimal D for 
negative contents. If a MOVE, MOVEL or move zone 
specification contains an alphanumeric field in the factor 2 
entry and a numeric field in the result field entry, the 
sign of the result field will be either a hexadecimal C ora 
hexadecimal D. The factor 2 and result field entries are 
thoroughly discussed under the MOVE, MOVEL, and move zone 
descriptions in Section 7, "Move Operations.” 
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If the factor 2 entry of a MOVE, MOVEL or move zone 
specification contains a numeric field and the result field 
is alphanumeric and positive, the result field’s si 
position is forced to an F-zone. This also occurs wi 
mumeric fields which are output in unpacked decimal format. 


The I sign process specification should be used only by 
programmers who are completely familiar with their input 
data, since input fields are not checked for a valid sign. 
The I specification causes sign forcing on literals, input 
tables, output fields, and the MOVE, MOVEL, move zone, and 
CHAIN operations (see Section 7, "Input and Output 
Programmed Control Operations") in the same way as anS 
entry does. 


In the O sign process specification, sign forcing occurs on 

_ input fields, input tahles, literals, am the MOVE, MOVEL, 
and move zone operations in the same wy as it would if ans 
were entered. 


The B si rocess specification is merely a combination of 
the I and 0 entries. | * 


FORMS POSITIONING (Column 41) 


Entry Description 
Blank The line conditioned by the 1P indicator 


is to be printed only once. 


1 The line conditioned the 1P indicator 
can be printed repeatedly. 


A 1 entered in column 41° ensures that the printer forms are 
positioned properly. Forms positioning applies to the first 
output line conditioned by the 1P (first ) indicator for 
printer files. Each time the line conditioned by the 1P indicator 
is printed the program halts for forms repositioning. The 

count is not incremented until the forms are positioned properly. 


SECTION 2 PAGE 10 


FILE TRANSLATION (Column 43) 


Entry Description 

Blank No files are to be translated. 

F Input, output, or peste files 
are to be translated. 


File translation allows the programmer to translate any character 
code into another character code. A different character code used 
as input can be translated into the code used internally, or the 
code used internally by the MEMOREX system can be translated into 
a different code for output. 


Column 43 is used only when information contained in an _ input, 
output, or update file is in a form which requires translation, 
When file translation is specified for an update file, both the 
input and the output portions of the file are translated. 


The input and output characters described here are called 
exter characters, while the characters used for processing 
within the computer are referred to as internal characters. 


In the Control Card and File Description Specifications Sheet, an 
F is entered in column 43 to specify that files are to be 
translated. The F indicates one or both of the following: 


The external character code used in the input data must be 
translated into an internal character form that can be used 
by the progran. 


The output data must be produced in a character code 
different from the code used by the progran. 


File translation records must also be punched into cards to 
specify the method of translation. All of the individual records 
together then form a file translation table, which immediately 
precedes the alternate collating sequence table“s beginning card 
in the source deck sequence. 
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The entries described below must be punched into a card for each 
file translation record used in the table. If only certain files 
are to be translated, each file must be individually named; 

Pibbhiel a single entry will serve for the translation of all 
iles. 


Positions Description 


1-6 If all put files, all output files, 
and both the input and output portions 
of all update files are to undergo 
translation, *FILES must be entered. 
The specifications beginning with 
position 910 below are then entered. 
All files will be translated according to 
the translation specifications beginning 
in position 9. 


1-8 If only certain files are to be 
translated, the filename of the specific 
individual input, output, or update file 
to be translated must be entered. Both 
the input and the output portions of the 
update file will be translated. 
Specifications are then continued 
for each file, begimning with positions 
9-10 below. 


9—10 The hexadecimal equivalent of the 
external character is the character that 
is to be translated from input data or 
for output deta. 


11-12 The hexadecimal equivalent of the 
internal character is the character 
which internally represents the 
external input or output character. 


13—16, These groups of positions are used in 
17-20, the same way as positions 912. 

21-24, The first two positions of each group 
etc. indicate the character to be translated 


into the character named in the last 
two positions of the group. 


All tables for a single file must be kept together. The file 
translation input records must be preceded by a record card with 
**¥ punched into positions 1~3. The remaining positions of this 
record may be used for coments. The file translation records 
must directly follow the RPG II specifications in the source 
program sequence. 
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SUPPRESS SKIP TO CHANNEL 1 (Column 47) 


Entry Description 
Blank A normal skip to channel 1 on the 
printer file is to be made. 
S A skip to channel 1 at the beginning of 
| RPG ot ba program execution is 
suppressed. 


An entry in column 47 prevents printing from starting on a new 
page so that forms can be printed in specific positions. 


CROSS-REFERENCE LIST (Column 52) 


Entry Description 

Blank No cross-reference listing is to be 
printed. 

x A cross-reference listing is to be 
printed. 


An X entered in column 52 causes cross-reference listings of 
filenames, field names, and indicators to be printed. The 
filename and indicator listings include the line on which each 
filename oor indicator is defined and the statement that 
references each of them. The field name cross—reference listing 
includes the storage location and length of each field name, the 
kind of data it contains Crunerie or alphanumeric), the line on 
which it is defined, and the statement that references it. 


CARRIAGE CONTROL TYPE (Column 53) 


Entry Description 
Blank Carriage control channel numbers are 


used for spacing. 


L Line numbers on a page are used instead 
of carriage control channel numbers. 
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il an lL is specified in Scun 55 the line counter form should 

eee only the first line and length of the form to be used. A 
ae snecification in the Output-Format Specifications Sheet 
es: &) then refers to the line numbers. 


When an L is specified in column 53, the generated RPG prorran 
Simulates skips to a line. It gets its startine point by an 
initial skip to channel 01, and assumes that channel 01 is on 
lire 06. All subsequent spacing is then relative to that starting 
voint. 


Lesving column 52 blank speeds up printing and causes spacinre to 
be roverned by carriage control tapes. SKIP specifications in the 


outnut—-format sheet refer to carriage control channels when the 
column is left blank. | 


SOURCE SEGUENCE CHECK (Column 54) 


Entry Description 

Blank A full sequence check is to be 
performed. 

N No sequence check is to be performed. 


If no entry is made in column 54, columns 1-5 are to be checled 
for sequence. An N entered in column 54 indicates that columns 
1-5 are not to be checked for sequence. 


TGHORE ARITHMETIC OVERFLOW (Column 55) 


Entry Description 
Blank Arithmetic overflow is to be indicated. 
I Arithmetic overflow is to be ignored by 


the compiler. 


if an I is entered in column 55 the compiler irmores any 
arithmetic overflow which may result from calculations and 
laa continues. If column 55 is left blank the compiler 

issues a nessare to the console indicating on which line the 
overflow occurred before processing continues. 
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PROGRAM IDENTIFICATION (Columns 75-80) 


Entry Description 
Blank A program identification of 
RPGOBJ is assumed. 
Valid RPG The program identific tion should be 
II name a unique name for the object prorran. 


No special characters may be used in the prorram identification. 
The first character of the name cannot be one of the following 
characters: #, $ or @; it must be a character from A to Z. The 
remaininy characters can be any combination of alphabetic and 
numeric characters. The program identification can be one to six 
characters lonr. Blanks cannot appear between the characters. 
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OECTION 3. FILE DESCRIPTION SPECIFICATIONS 


A file is a collection of related records treated as a single 
unit. The records within a file are Similar in purpose, form and 
content. 


Ilile description information is required for every file used by a 
crorram. This information is entered on the RPG II eee Card 
and File Description Specifications Sheet (Firure %1). A sinrle 
line is sufficient for describing each file, and a maximum of 20 
file description record lines is permitted For each prorram ina 
partition whose size is 10K or larrer. Ina pernitson smaller 
than 10K, a maximum of 10 files is allowed. 


‘MEMOREX — RPG II Specifications ory t fe es 
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Firure 3-1. RPG II Control Card and File Description 
Specifications Sheet. 


TYPES OF FILES 


RPG II uses five types of files: input, output, update, display, 
and combinec. : 
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INPUT FILES 


Input files contain records which provide a program’s source of 
data. An input file description in a program indicates that 
records are to be read from that file. All input files excert 
table files and record address files (see "File Designations" in 
this section) require additional description on the Input 
Specifications Sheet (Section 6). Table files and record address 
files require further description on the Extension Specifications 
Sheet (Section 4). 


OUTPUT FILES 


Output files comprise the records that a program writes, punches 
or prints. All output files except table and array output files 
require further description on the Output—Format Specifications 
Sheet (Section 8). See "File Designations" in this section for | 
additional discussion of table and array files. 


UPDATE FILES 


Update files are disc files from which a program reads a record, 
updates its fields, and rewrites the record in the location from 
which it was read. Update files require additional description on 
both the Input Specifications Sheet (Section 6) and _ the 
Qutput—Format Specifications Sheet (Section 8). 


DISPLAY FILES 


Display files are composed of information gathered from various 
fields used by a program. To print a field or record directly. 
from storare, and to key data into a field or record in storage, 
the DSPLY operation code must be entered on the Calculation 
Specifications Sheet (Section 7). The only device that can te 
associated with a display file is a console (printer keyboard). 
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COMBINED FILES 


A combined file comprises an input and an output file. A prorram 
reads records from a combined file and simultaneously punches 
output data into the records via the 8025 Card Reader/Punch. The 
resulting single file contains both input and outrut data. 
Combined files require additional description on both the Invnut 
and the Output-Format Specifications sheets (Sections 6 and &, 
respectively). 


FILE DESIGNATIONS 


Six designations are used in RPG II to describe input, ouvtrut, 
and update files still further: primary, secondary, chained, 
demand, record address, and table and array. 


PRIMARY FILES 


The primary file is the main file from which a program reads 
records. The program uses the primary file during multifile 
processing to control the order in which records are selected. A 
primary file can be an input or update file, but one and only one 
primary file is required for every program. 


SECONDARY . FILES 


All files involved in = multifile processing except the primary 
file are secondary files. Secondary files are processed in the 
order in which they are entered on the File Description 
Specifications Sheet, and can be input or update files. 


CHAINED FILES 


A chained file is a disc file that is read randomly or loaded 
directly via the CHAIN operation code (Section 7). A chained file 
can be read or written during detail calculations time or total 
calculations time (see Figure 1-4). <A maximum of 15 chained 
and/or demand files is permitted in each prorramn. 
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DEMAND FILES 


Demand files can be input or update files, and can only be. 
processed sequentially. The READ operation code must be used on 
the Calculation Specifications Sheet (Section 7) in order to read 
from a demand file. A maximum of 15 demand and/or chained files 
per prorram is allowed. — 


RECORD ADDRESS FILES 


A record address file is an input file that indicates which 
records are to be read from a disc file, and the order in which 
those records are to be read. Only one record address file can te 
used in a profrram. 


Record address files contain either relative record numbers in 
binary format, or record key limits. Those files with record key 
limits can be disc or card files, or can be entered via the 
console. They are used with indexed files only (see "File 
Organization" in this section). 


Record address files that contain binary relative record numbers 
can only be disc files and can be used only with relative files 
(see "File Organization" in this section). 


ADDROUT files are a special type of record address file, since 
they are produced by the disc sort utility program, rather than 
by the RPG II source or object program. Execution of the disc 
sort utility program is controlled by the operating system. 


TABLE OR ARRAY FILES 


A table or array file is a sequential input file containins table 
or array entries. Only pre—execution time tables or arrays need 
be described on the File Description Specifications Sheet. 


Pre—execution time table or array entries are read into the 
program immediately before program execution and are described on 
both the File Description Specifications Sheet and the Extension 
Specifications Sheet (Section 4). Table and array files are not 
involved in record selection and processing, since they are used 
only as a means of supplying entries for tables or arrays used hy 
the, program. When table or array files are read at pre—-execution 
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time, the program reads all the entries from the table or array 
files before it begins record processing. 


Compile time. table or_ array entries are read into the promral 
during compilation, and are described only on the Extension 
Specifications Sheet (Section 4). 


A table or array output file is defined as a normal output file 
and requires no special entry in the File Description 
Specifications Sheet. 


FILE ORGANIZATION 


File organization is determined by the arrangement of the records 
within the file. The three types of file organization are indexed 
files, relative files, and sequential files. 


INDEXED FILES 


Indexed files are disc files whose record locations are kept ina 
separate portion of the file called an index. The index contains 
a record key for each record, as well as the record’s location. 
The record key contains the information found in the key field of 
a record and is used to identify the individual record in the 
indexed file. Indexed files must contain fixed-length records, 
and must be loaded in ascending record key sequence. 


RELATIVE FILES 


Relative files are disc files whose records are directly called 
by number, rather than by the sequence in which they were loaded. 
Fach record is assigned a specific place within the file and a 
relative record number which identifies its position in the file 
in relation to the other records. Before a relative file is 
loaded, the disc is automatically cleared to blanks. 
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SEQUENTIAL FILES 


A sequential file may be assigned to any device. All files that 
are not assigned to disc must be sequential files. In a 
sequential file, records are ordered in the same sequence in 
which they are put into the file. The first record read always 
occupies the first record position, the second one read occupies 
the second record position, and so on. 


CODING INSIRUCTIONS 
Detailed descriptions of the file description entries to be coded 


on the specifications sheet are defined below. 


PAGE NUMBER (Columns 1-2) 


Entry Description 
01-99 Specifications sheets are numbered 
sequentially. 


More than one of each type of specifications sheet may be used in 
the course of Suan ee source program. To keep the sheets in 
the proper order, t coded File Description Specifications 
Sheets must be grouped together sequentially and arranged with 
the other specifications sheets in the following order: 


Control Card and File Description 
Extension and Line Counter 

Input 

Calculation 

Output—Format 


The specifications sheets should then be numbered in ascending 
sequence. 
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LINE NUMBER (Columns 3-5) 


Entry Description 
Any number Line numbers are assifrned in 


ascending sequence. 


Line numbers are preprinted in columns 3-4 of the specifications 
sheet for the programmer’s convenience. The umumbered lines 
below the preprinted numbers can be used for additional lines or 
to insert a line between completed lines. Column 5 can also be 
used to this end. The line numbers assigned need not be 
consecutive, but they must be in ascending order. 


TYPF OF FORM (Column 6) 


Entry Description 
F F identifies the file description 


specifications to the compiler. 


FILENAME (Columns 7-14) 


_ Entry Description 
1-8 | The name of the file being described 


characters is entered. 


A unique name must be assigned to every file the prorram uses 
except compile time table and array files, which are described in 
the Extension Specifications Sheet (Section 4). If the filename 
is left blank, an error occurs. 


The filename must be a valid RPG II name; it may be the same as a 
field name. A valid filename consists of one to eight characters. 
The first character must be alphabetic; the remaining characters 
can be any combination of alphabetic and numeric characters. 
special characters are not permitted. Blanks cannot apnear 
between characters in the name. 
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Pre-execution time table and array filenames are entered on the 
File Description Specifications Sheet. More than one 
pre-execution time table or array filename can be entered for the 
same device (see columns 40-46 in this section). 


TYPE OF FILE (Column 15) 


Entry Description 

I An input file is to be used. 
0 An output file is to be used. 
U An update file is to be used. 
C A combined file is to be used. 
D A display file is to be used. 


The entry in column 15 identifies the way in which the file is to 
be used by the program. If the type of file entry is left blank, 
it is considered an error. 


Of the four types of files that can be identified, all but the 
display file require additional entries on other types of 
specifications sheets. Input files (except record address and 
table files) require other entries on the Input Specifications 
Sheet (Section 6). Record address and tables files used as input 
files must be identified on the Extension Specifications Sheet 
(Section 4) as well as the File Description Specifications Sheet. 


Output files, except table and array files used as output files, 
require additional description on the Output—Format 
Specifications Sheet (Section 8). Table and array files used as 
output files are described on the File Description Specifications 
Sheet and the Extension Specifications Sheet. 


| Update and combined files require additional entries on both the 
Input and the Output—Format Specifications Sheets. 


SECTION 3 PAGE 9 


DESIGNATION (Column 16) 


Entry Description 

Blank A display file or output file (except 
a chained output file) is to be 
used. 

P A primary file is to be used. 

S A secondary file is to be used. 

C A chained file is to be used. | 

R A record address file is to be used. 

vi HTL Paha pears time table or array 

file is to be used. 
D A demand file is to be used. 


The file hing penkeee entry in column 16 is a one-character code 
which further identifies a file by indicating its specific use by 
the progran. 

Primary and secondary files involve record selection in multifile 


processing. For detailed information on primary and secomary 
file processing, see "Multifile Processing" in Section 6. 


END-OF-FILE CODE (Column 1'7) 


Entry Description 

Blank The program can end before all the 
records from the file have been 
processed. 

E The program cannot end until all 
records from the file have been 
processed. 


The end-of—file code applies only to input and update files 
designated as primary, secondary, or record address files for 
multiprocessing. When column 17 is left blank for all of the 
files described, every record from every file must be processed 
before the program terminates. 
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When matching records are being processed with an E specified for 
the primary file, the job ends only after the System has 
processed all secondary records that match the last primary 
record, or after it has encountered the first secondary record 
without a match field. 


SEQUENCE (Column 18) 


Entry Description 

Blank Sequence checking is not to be 
performed. 

A Sequence checking is to be performed ; 
the file records are in ascending 
order. 

D Sequence checking is to be performed; 
bee file records are in descending 
order. 


The sequence entry is used to indicate whether or not the progran 
is to check the sequence of the records. The entry applies to all 
update files, and to all input files except chained, demand, 
record address, table, and array files, for which it is left 
blank. Column 18 is left blank for output and display files. 


Sequence checking is required when match fields are used in the 
file records (see Section 6, “Match Fields"). An entry in the 
sequence field must be further described in columns 61-62 of the 
Input Specifications Sheet (Section 6) via an entry identifying 
the match fields which contain the sequence information. 


FILE FORMAT (Column 19) 


Entry Description 

F The records in the file are 
fixed-length. 

V The records in the file are 


variable-length. 
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Records ir an indexed file must be fixed—leneth; i.e., all the 
records in an indexed file must be the same lenrth. Tare and 
non~indexed disc files may contain records of variable lenrths. 
Kither + or V must be specified in the file format entry; if it 
is left blank, a warning message is issued and F is assumed. 


LENGTH OF BLOCK (Columns 20-23) 
Entry Description 


Blank The compiler calculates the block 
| | length from the record lenrth and the 
file device. If the device is disc 
or tape and the record length is 256 
or less, the compiler rroups as many 
records as possible into a block whose 
size does not exceed 256 (see Aepend is D). 


14096 The length of a block of records is entered. 
For all devices except disc or tape, the 
length entered must be the same as the lenrth 
of a record (columns 24-27). For disc or 
tape, the length entered may be the record 
length or a multiple of the record lenrth 
+4. If the block lenrth entered is the 
same as the record lenrth, an optimum 
block size is calculated for disc or tape 
(see above). If records are variable—lenrth, 
the only restriction is that the LENGTH OF 
BLOCK entry must be preater than or equal to 
the LENGTH OF RECORD a 


RPG II allows block lengths for fixed—lenreth records equal to the 
lensth of a record or a multiple of its length plus 4. Leral 
block lenrths are soverned by the type of device assirned to the 
file. when the entry is being specified for variable—-lenrth 
records, the block length need not be a multiple of the record 
length; the maximum block ‘length is entered instead. 


All disc and tape records, whether fixed—lenrth or 
variable-format, are stored in common stored data format: a 
four—byte header precedes each lorical record. Thus if a record 
length were 100, unblocked, the block length would be 1043; and if 
a fixed—lenrth record had a lenrth of 50, blocked 4, the block 
lenfth would be 216. 


The block length actually assumed by the compiler may be 
different from the block lenrth specified because of the extra 
characters needed for carriage control and spooling control. See 
Appendix D for more information about assumed block lLenrths. 
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=antries must be right—justified to end in column 23, and leadine 
zeros are not required. When the block length is the same as the 
length of one record, the field may be left blank. 


LENGTH OF RECORD (Columns 24—27) 
Entry Description 


1-—4096 Either the number of characters ina single 
fixed-length record, or the maximum record 
len¢eth for variable—-lenrth records is 
specified. 


Columns 24-27 are used to indicate the length of the records in 
the file. The maximum record lenrth allowed and the size of the 
infut/outnut area assisned depend on the type of device assirned 
to the file. If the entry is left blank an error occurs. If 
variable-lenrth records are specified in update files, they need 
not be the same lenrth after updating occurs as they were rrior 
to undatin>. The records cannot exceed the maximum record lenrth 
specified, however, after they are updated. (See Appendix D for 
information about assumed record lengths. 


PROCESSING MODE (Column 28) 


Entry Description 

Flank The vrocessing mode is either sequential 
by key, or consecutive. 

L The processing mode is seguential within 
limits. 


4 
ee: 


The processing mode is one of the followinr: 


Random by relative record number 
Random by key 

By ADDROUT file 

Direct file load 


The processine mode entry indicates the method by which records 
are to be read from the file, or that a direct file load (random 
load) is to take place. For disc files specified as rrimary, 
secondary, or chaired files, the methods possible depend uron the 
tyre of file orranization (Figure 3-2). For the other types of 
files, Consecutive processing is the only possible method. 
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PRIMARY AND SHOONDARY FILE PROCESSING 


Organization Possible e Methods is 
Sequential Consecutively. 

Relative : : ERED ROU agen ee 
Indexed — 1. Sequentially 


; key. 
2. Sequentially wlth limits. 
3. Randomly key (via record 
address file or chaining). 


ean RIERERaEaRREERERER REE EREEEEEEEEEEEEREEEE EEE era Ree nan 


CHAINED FILE PROCESSING 
Possible Methods 
Randomly by relative record number. 


Randomly by key. 


Figure 3~2. Possible Disc File Record Retrieval Methods. 


LENGTH OF KEY FIELD OR RECORD ADDRESS FIELD (Columns 29-30) 


Entry Description 
1~99 Specifies the 1 h of the record 


in indexed files or in record 
ress files that contain either 
rendon keys or limits. 


4 Specifies th the length of the ADDROUT 


This entry applies only to indexed disc files and record address 
files. If these files are used and the entry in columns 29-00 is 
left blank, an error occurs. 


The maximum length allowed for Pe fields in indexed file records 
is 99 characters. All the k ds in indexed file records must 
1 the same Pa A leng tof four is required for records in 

ADDROUT fil The leading zero may be omitted, however the 
entry must be right~justified to end in column 30. 
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RECORD ADDRESS TYPE (Column 31) 


Entry Description 
Blank One of the following is to occur: 


Records are to be read consecutively; 
or a sequential or relative file is to be 
loaded; or relative record numbers are to 
be used in processing relative files. 


A Alphanumeric record keys are to be used in 
processing indexed files. 


I The file is an ADDROUT file, or an 


ADDROUT File is to be used to 
process the file. 


An entry is specified in column 31 only for indexed and ADDROUT 
files. No entry is required for the other file types. 


FILE ORGANIZATION (Column 32) 


Entry Description 
Blank A sequential or relative file is to be 


processed. One input/output area is 
to be used for the file. 


An indexed file is to be processed. 
T An ADDROUT file is to be processed. 


1-9 A sequential file or relative file is to 
be processed. Two input/output areas 
are to be used for the file. (The 
digit 2 is preferred, since a maximum 
of two input/output areas is 
permitted. ) 


The file organization entry can be used td identify the 
organization of all files except ADDROUT files; to identify 
ADDROUT files; or to indicate whether one or two input/output 
areas are to be used for sequential files or relative files. 
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OVERFLOW INDICALOR (Columns 33-34) 


Entry bescription 

Blank No overflow indicator is to be used. 

CA~OG, The specified overflow indicator is to 

OV be used to condition records in the 
file. 


Overflow indicators are used for output files assigned to the 
printer to indicate that records to be printed in the file are 
being conditioned. Overflow indicators used in a program must be 
unique for each outyut file assigned to the printer. Only one 
overflow indicator can be assigned to a file. 


Overflow indicators cannot be assigned to a console file. The 
nay be turned on and off vy the operation codes SLTOh anc SETOF 
(see Section 7, “Operation Codes") when they are used to 
condition overflow printing. Spacing past the overflow line 
causes the overflow indicator to turn on. Skipping past the 
overflow line to any line on the new page does not turn the 
overflow indicator on. A Skip to a new page specified on a line 
not conditioned by an overflow indicator causes the overflow 
incicator to turn off. 


Overflow printing with the EXCPT operation code (see Section 7, 
"Operation Codes") involves certain rules: 


Overflow indicators cannot condition an exception line, but 
they can condition fields within an exception record, 


Using the EXCP! operation code with the E in column 15 of 
the Output-Format Specifications Sheet (Section &) causes 
the iields to be printed while the calculations are being 
performed; normally they are printed afterwards. Only the 
fields identified by an E in column 15 are printed at that 
time. 


Even though the specified fields are printed during 
calculations, they still have the same effect on _ the 
overflow routines as all other lines. 
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STARTING LOCATION OF KEY FIFLD (Columns 25-38) 


Intry Description 
1~4096 Indicates the record position in which 


the key field befins. 


An entry in columns 35-3€ is required only for indexed disc 
files. tr an entry is not made for an indexed file, an error 
occurs. The entry must end in column 78. leading zeros are not 
required. 


The key field of a record is used in the index portion of the 
file and contains information that identifies the record. The key 
field. in all of the records in a file must be in the same 
location. 


EXTENSION CODE (Column 39) 


Entry bescription 
E Fxtension specifications further 


Cescribe the file. 


L Line counter specifications further 
describe the file. 


lhe extension code in column 49 is used for all record adéress 
files, for all table and array files to be read during prograr 
execution, and for output files assigned to the printer which 
have a line counter associated with them. The column is left 
blank for all other files. 


The Extension Specifications Sheet must be used to. five 
edditional information about table, array, and recoré adcress 
files. The Line Counter Specifications Sheet should be used to 
give additional information about print files which mey be 
assigned to disc or tape. 


if_ the column is left blank for table, array, or recor¢ adcress 
files, a warning message is issued and an error occurs. 
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DEVICE (Columns 40~46) 


DISC ' Specifies the disc unit. 
‘PUNCH Specifies the card punch. 

TAPE Specifies magnetic tape. 

READ Specifies the card reader. 
CONSOLE Specifies the console keyboard. 
PRINTER Specifies the printer. 


The entry in columns 40-46 identifies the input/output device to 
be used for the file being described. The device used depends 
upon the form of the records, as illustrated in Fi 3—36 
Entries must be left—justified to begin in column 40. If the 
entry is left blank, an error occurs. 


Primary or Secondary 
Input Files 


Record Address Files 
Containing Record—Key 
Linits 
ADDROUT File 
Table Files 


Chained Input Files 


Update Files (Primary 
Secondary, or Chained } 
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Keyed in by Operator 


Cards 
Tape 
Disc 
Keyed in by Operator 


Disc 


Cards 

Tape 

Disc 

Keyed in by Operator 


Disc 


| Disc 


Printed Pages 


DEVICE ENTRY 


PRINTER or CONSOLE 
CONSOLE 


Figure 3-3. Devices Possible for Assignment to Files. 


Substitute Device Assignment 


In addition to the 


Standard device names shown in Figure 3-3, 


certain other device names are allowed for compatibility with 
other systems. Figure 3~4 lists the name of each of these devices 
and the Memorex device that is used in its place, and indicates 
whether or not the substitute devices issue warning messages. 
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ecco PE CL a AA RAEN ATA NR! 


DEVICE MEMOREX SUBSTITUTE DEVICE | WARNING MESSAGE 
_ MFCM1 

MFCM2 READ, if an I is specified in 

column 150 ese 
CRP20 
PUNCH, if an O is specified in 
MEFCU1 column 15 
MFCU2 


er 


PRINTLF | PRINTER 
PRINTUF | PRINTER _ 
‘PRINTR2 | PRINTER 
'READO1 READ 


| arr meant need pertains Paral tor 


ETT 


DISK11F DISC 
PRINTKB CONSOLE 
INQTPT CONSOLE 


PUNCH20 PUNCH 
PUNCH42 PUNCH 


RTS a ra er 


DISK DISC 


Figure 3-4. Substitute Devices Assigned to Files. 


Special Device Support 


Special input /output devices may be used with RPG II by providing 
a link to a user-written routine that enables data to be 
transferred for the special device. 


The files read and written are called special files and are 
designated as such by entering the word SPECIAL in columns 40-46, | 
Special files can only be processed consecutively. 


Special files require specific entries in all the columns of the 
File Description Specifications Sheet, and special entries for 
the special device feature. The entries are 
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asterisks denoting the special entries. 


Columns 
7-14 
15 

16 

17 

18 

19 
20-23 
24-27 
28-31 
32 


33-39 
*40~46 

AT-53 
#5459 


60~70 
11-72 
13-14 


Entry 


Valid RPG II filename, 
I, 0, or U. 

P, S, D, or blank. 
Blank or E. 

Blank, A, or D. 

Ps 

Block length. 

Record length. 

Blank (mandatory). 


Blank or 1-9 (dual I/O areas are 
allowed ). 


Rlank (mandatory). 

The word SPECIAL. 

Blank (mandatory). 

SUBRxx (x can be any alphabetic 
character. This is the name 

of the user-written routine 
that performs data transfer). 
Blank (mandatory). 

Blank or U1—U8. 


Blank (mandatory). 


See Appendix E for a discussion of special file linkage. 


isted below, with 
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HIGH-LEVEL DIRECTORY SIZE (Columns 47-52) 


Entry Description | 
Blank No high-level directory is to be used. 
1-—99999 Specifies the number of bytes reserved for a 


high-level directory. 


An entry in columns 47-52 indicates the number of bytes to be 
reserved for a high-level directory which is kept in memory 
throughout the job, thereby increasing disc file access speed. 
The entry must be right—justified; leading zeros are not 
required. When no entry is made in columns 47-52, the high-level 
directory is accessed anew each time it is needed. 


The high-level directory contains a key and a block number which 
corresponds to the index directory and is used with randomly 
accessed disc files. 


TAPE LABELS (Column 53) 


Entry Description 
Blank | Either no labels are to be used, or 


the file is not a tape. file. 
Standard labels are to be used. 
N | Non-standard labels are to be used. 
Column 53 is used for tape files to indicate the type of label 


information on the tape. RPG II handles the processing of 
standard labels. 


INDEX BUFFER SIZE (Columns 60-65) 


Entry Description 
Blank No index buffer is to be used. 
1~9999 © The number of bytes reserved for 


the index buffer is entered. 
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The index buffer entry applies only to indexed disc files. Un to 
9909 bytes can be specified for the index buffer. Fntries must be 
rirht-justified to end in column 65, however leading zeros are 
not required. 


An index block, which is read into the index buffer, is - table 
which contains index keys and pointers’ to the correspondine 
records. An index buffer must be used for indexed files rrocessed 
sequentially, but it is not required for indexed files rrocessed 
rancomly. If the entry is left blank for randomly processed 
indexed files, the index buffer shares the area occupied by the 
data buffer; thus the amount of time needed to process the file 
is reduced. 


FILF ADDITION (Column 66) 


Entry Description 
A New records are to be added to the 
Tile. 


Column 66 applies only to sequential, relative, and indexed disc 
files. If the column is left blank, it is irnored. Records added 
i0 a sequential file are added at the end of the file. Records 
added to relative files must be within the file limits; the file 
size cannot be extended. Records added to an indexed file can he 
added to any part of the file, including the end, as lone as a 
record is not already specified for that key. Records may only he 
replaced by performing an update. Entries for the new recorcs are 
made in the index. 


File addition cannot be specified for indexed files from which 
records are read using the seauential-—within—limits methoc. New 
records may be added to a relative file by specifyine the file as 
an update file processed consecutively, or by the CHAIN operation 
code (see Section 7, "Operation Codes"). , 


TAPE REWIND (Column 70) 


Entry Description 
Blank Rewind only is to occur. 
N No rewind is to take place. 


U Rewind and unload are to occur. 
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This entry defines the rewind action to be taken on tape files 
when the end-of-file comdition occurs (see column 17). 


FILE CONDITION (Columns 71—72) 


Entry Description 

Blank The file is not conditioned by an 
external indicator. 

‘U1-U8 The file is conditioned by the 


specified external indicator. 


Columns 7i~72 apply to primary and secondary input files 
(excluding table input files), update files, and output files. A 
record address file may be conditioned by an external indicator 
if its associated primary or secondary file is conditioned either 
by the same indicator or by no indicator. 


External indicators are set by using a parameter on the MRX/0S 
Control Language statement for execution of the object program. A 
file conditioned by an external indicator is used only when the 
indicator is on. When the indicator is off, the file is treated 
as though the end--of-file condition had been reached; no records 
can be read from or written in the file. 


In addition to their use as file conditioning indicators, 
external indicators may be used as field record relation 
indicators (see Section 6, columms 63-64), and to condition 
calculation or output operations. See Section 7, “Indicator 
Setting Operations,“ and Appendix B, Tables B2 and B3, for 
indicator summaries. 


PROGRAM IDENTIFICATION (Columns 75-80) 


Entry ' Description 
These columns may be used for programmer 
characters comments. 


The program identification field of all cards following the 
control card may contain any characters, including blanks. The 
columns may be used for programmer comments, if desired. 
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SECTION 4. EXTENSION SPECIFICATIONS 


Extension specifications are required to complete the description 
of record address files (see Section 3, "File Designatiors"), 
ables, and arrays. Every table and array used by the object 
program must be described on the RFG II Fxtension and Line 
Counter Speci! teat ions Sheet (Figure 4-1). A maximum of 60 table 
and array descriptions and one record address file description is 
allowed for each program in a epartitior whose size is ©K or 
larger. In an &K partition 12 tables/arrays, minus the rumber of' 
files used, may be defined. 


MEMOREX RPG II Specifications aay a 


Punch 


Extension 


ALTERNATING TABLE OR ARRAY 


COMMENTS 


A/D SEQUENCE 


PAGE NUMBER 


NAME 


3 (ALTERNATING 


& P/B PACKED/BINARY 


3 DECIMAL POSITIONS 


3 A/D SEQUENCE 
EY 
oe 


“NUMBER OF ITEMS IN 
@ TABLE OR ARRAY 


& PACKED/BINARY 
$ DECIMAL POSITIONS 


¥ NUMBER OF ITEMS 
ON EACH RECORD 


& 
2 
TABLE OR ARRAY 


2 LENGTH OF ITEM 


ty 
3 
a 
N 
& 


Line Counter 
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Figure 4-1. kPCG II Extension and Line Counter 
Specifications Sheet. 


TABLES AND ARRAYS 


dables and = arrays are _ groups) of data items arranged 
systematically for ready reference. Fach item in a table or erray 
must be of the same data type (alphanumeric or numeric) and have 
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the same field length and number of decimal positions as every 
other item in the table or array. 


Tables and arrays may be searched for the presence of specific 
items using the LOKUP operation (see “Lookup Oeerat icone. oection 
7), and they may be used in calculations and output. 


Tebles are searched one item at a time (unless they are in 
sequence and the birary search option is used—see Section 2, 
column 34) until an item is found that matches a certain 
identifier. That item is then mace available for use in 
calculations. Arrays may also be searchec for a given item, but 
the item is not automatically made available for calculations. A 
specific array item may be referenced, however, by its lccation 
in the array relative to tne first item. This kind of relative 
referencing is called indexing. Indexing mey not be used with 
tables. 


When a table name is used as one of tiie operands in a calculation 
specifications line (Section 7), the item most recently found in 
a JOkUP operation on the table is to be used in the calculation. 
cpecifications for which an array name is an operand usually use 
all of the array items sequentially in the same operation. tor 
instance, a number may be added to every item in @ numeric array 
by using only one specifications line (see "Yable and Array 
Reference" in this section). A single array item must be 
referenced by the array name followed by a comma and the index of 
the item. Yhe index may. be an actual number or the name of a 
positive numeric ficld with zero decimal positions, and it may 
never have a value less tnan 1. 


TAELE AND ARRAY NANES 


tach table and array used in the program must be given a name 
from one to Six Cnaaracters long. wo two tables or arrays may be 
given the same name, Since the names assigned in the extension 
specifications are used Lhroughout the program. tach table name 
must be at least three characters long, and begin with the letters 
VAL. Array names cannot begin with the letters TAb; they must be 
assigned other identifyins, characters. <Any name assigned in 
columns 27-52 which does not begin with TAB is considered an 
array name. 
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TABLE AND ARRAY TYPES 


Tables and arrays described in the extension specifications can 
be loaded at one of three different times: compilation time, 
pre—execution time, or execution time. These loading times 
separate the tables and arrays into three corresponding types. 


Compile Time Tables and Arrays 


Compile time tables and arrays are loaded at compilation time and 
compiled along with the source program. They become a permanent 
part of the resulting object program. To effect a permanent 
change to a compile time table or array, the source program must 
be recompiled with the revised table or array. 


Pre-Execution Time Tables and Arrays 


Pre—execution time tables and arrays are loaded with the object 

program before any of .the non—table or non-array input files are 

read, calculations are done, or output functions are performed. 

ie load must be completed before actual program execution 
egins. 


Execution Time Arrays 


Execution time arrays are loaded after program execution begins. 
Loading is accomplished when the arrays are read in as input data 
as described on input specifications forms (Section 6), or when | 
they are created during calculations in the progran. 


ADDITIONAL TABLE AND ARRAY TYPE DESCRIPTION 


Tables and arrays can be further described as short, full, or 
related. | 


SECTION 4 PAGE 4 


Short Tables and Arrays 


Short tables and arrays are those in which not all of the entries 
contain data. Each short table or array must contain at least one 
item. In numeric tables and arrays, the unused items are filled 
with zeros. In alphanumeric tables and arrays, the unused items 
are filled with blanks. Items can be added or replaced during 
execution time by reading them in from input records or creating 
them through calculation operations. 


Full Tables and Arrays 


Full tables and arrays are those in which all possible items 
contain data. The table or array is full, and nothing more can be 
added to it. 


Related Tables or Arrays 


Related tables or arrays are tables or arrays that are used 
together. Each item in the first table or array is associated 
with e corresponding item in the second table or array which 
gives additional information. Although all items within one table 
or array must have the same characteristics, corresponding items 
in related tables or arrays may have different characteristics 
from their counterparts. Related tables and arrays should have 
the same number of entries. Care should be taken if they do not, 
since a LOOKUP search stops at the end of the snorter table (see 
Section 7, “Operation Codes"). 


TABLE AND ARRAY INPUT RECORD CREATION 


Input records for compile time and pre-—execution time tables and 
arrays must follow certain rules: 


The first table or array item entered on each record must 
begin in the first position of the record. 


Two items may not be separated by spaces on a record unless 
the spaces are part of one of the items. 


It is not necessary for the_entire record to be filled with 
items, but an item must be placed in the first position. The 
remainder of the record may be composed of blanks or 
comments. 
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All records for a table or array, except the last record, 
must contain the same number of items. 


An item cannot extend fron one record onto the next one. The 
entire item must be on a single record. 


Related tables or arrays can be described either separately 
or in alternating format, where the corresponding items are 
described on the input record as a single table or array 
entry. Each alternating table or array item is entered 
immediately following the item of the table or array. to 
which it corresponds. The combined item lengths of two 
tables or arrays described in alternating format must 
therefore be less than. the maximum record length for the 


device being used. Tables may not alternate with arrays, or 
vice versa. 


TABLE AND ARRAY LOADING 


Tables and arrays can be loaded at_ compilation time, 
pre—execution time, or execution time. The rules for loading them 


vary according to the time at which they are loaded. 


Compilation Time 


Tables and. arrays that_are loaded at compilation time are 
compiled along with the RPG II source program, and they become a 
part of that program. Compile time table or array records are 
loaded immediately following the source program. Each table or 
array must be separated by a record with ** in positions 1 and 2. 
Since these characters are treated as delimiters, they cannot be 
entered in the first two positions of a data record. The last 
compile time table or array must be followed by an ending record 
with /* in positions 1 and 2 (see Figure 1-2 for source deck 
arrangement and delimiters). ei para time tables and arrays must 
be loaded in the same ordér as they are described on the RPG II 
Extension Specifications Sheet. 


A compile time table or array description must have an entry in 
columns 33-35 (number of items on each record) of the Extension 


Specifications Sheet. It must not have a “from" filename entry in 
columns 11-18 or a packed/binary entry in column 43 or 55. 


SECTION 4 PACE 6 
2202,003-0003 - 3/30/73 


Pre—Execution Time 


Pre-execution time tables and arrays do not become part of the 
source program but are used like any other data file by the 
object program. Pre-execution time tables or arrays are loaded 
prior to any other processing. An ending card containing /* in 
columns 1 and 2 ust follow every pre-execution time table or 
array unless two or more tables or arrays are loaded from the 
same device. In this case, each table or array except the last is 
followed by a card with ** in the first two columns. The last 
table or array is terminated by /*. Tables and arrays loaded from 
the same device must be loaded in the same order as they are 
described on the RPG II Extension Specifications Sheet. When 
errors are encountered during loading, additional information 
about each error is displayed on the console, provided the 
console has been defined as the log device. 


A pre-execution time table or array description must have a 
"from" filename entry in columns 11-18 and a number of items on 
each record entry in columns 33-35. Packed or binary field 
entries may be made in columns 43 and 55 if they are appropriate 
for the device. 


Execution Time 


Execution time arrays may be_ loaded from a records or by 
instructions coded on the Calculation Specifications Sheet. 
Tables may not be defined as execution time tables. 


An execution time array description cannot have a "from" filename 
entry in columns 11-18, a “to” filename entry in columns 19-26, 
or a number of items for each record entry in columns 32-35 of 
the Extension Specifications Sheet. 


Execution time arrays that are loaded from data in input records 
Must be fully described on the Input Specifications Sheet, as 
well as on the Extension Specifications Sheet. When execution 
time array data is to be read in packed or binary format, an 
entry must be made in column 43 of the Input Specifications 
Sheet. The field location columns of that sheet (columns 44-51) 
are then used to describe the record positions the array data 
Occupies in the packed or binary format. Columns 40-42 of the 
Extension Specifications Sheet are used to define the unpacked 
decimal length of each array item. 


Input specifications may be coded in several different ways. The 
coding method that is selected depends on the number o7 input 
records needed to load the array and the location of the array. 
items on each record. Array information that occupies consecutive 
positions in a single record can be defined and loaded using a 
Single input specifications line. Array items that are scattered 
through one or more records must be defined and loaded one or 
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more at a time. A specifications line may specify several array 
items with or without an index. If no index is specified, the 
items are put at the beginning of the array. If an index is 
specified, the items are put in starting at the place indicated 
by the index. 


When array information is contained in two or more input records 
the data in the first record may be defined in the input 
specifications using either of the two methods stated above. 
Subsequent array items from the other records should be defined 
individually. Variable indexes and/or record identifying 
indicators should be used to avoid overlaying the data from one 
record with the data from a later record. 


Since an RPG II object program processes only one record ata 
time, the entire array cannot be processed until all records 
containing array information have been read and ali the 
information has been moved into the array fields. For this 
reason, it is sometimes necessary to suppress calculation and 
output operations until the entire array has been read into the 
system. This can be done using control level indicators (see 
Section 6). 


The input field specifications for describing and loading an 
array from a single input record are as follows: | 


I is entered in calumn 6. 
Columns 7 through 42 are left blank. 


Column 435 contains a P for packed decimal record format, B 
for binary format, or blanks for unpacked decimal format. 


The field location of either an entire array of consecutive 
items or an individual item of the array is entered in 
columns 44-51. The beginning location is entered in columns 
44—47 and the ending location is entered in columns 40-51. 


Colum 52 may be left blank. If a decimal position is 
entered, it must be identical to the decimal positions entry 
in the Extension Specifications Sheet. 


The name of the array is entered in columns 53-58. The name 
must agree with the entry made in the Extension 
Specifications Sheet. The array name and index must be used 
for each item when individual items are being defined. 


Columns 59-62 are left blank. 
The field record relation indicator is entered in columns 
63-64 in accordance with the rules supplied for field record 
relation entries in Section 6. 


Columns 65-74 are left blank. 
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TABLE AND ARRAY CHANGES 


When a table or array name is used as the result field in an 
arithmetic or move operation (see Section 7, “Operation Codes"), 
the table or array items may be changed during the execution of 
the object program. Additionally, any type of table or array 
(compile time, pre-execution time, or execution time) can be 
added to or changed using the Input Specifications Sheet or 
Calculation Specifications Sheet. Table and array changes are 
only in effect until execution of the object program is 
completed. The table or array reverts to its original entries 
when the program is next executed. 


Changes can be made permanent only if the original data is 
changea. Changes made during program execution can be made 
permanent by writing or punching them out and using the new 
records, rather than the original records, in the table or array 
input file. 


TABLE AND ARRAY REFERENCE 


Hither an entire array or an individual item in an array can be 
referenced using calculation specifications. The array name may 
be used without an index with the following operations: 


ADD MHHZO MOVE SUB 

DEBUG MHLZO MOVEL XFOOT 
DIV MLHZO MULT Z~-ADD 
LOCKUP MLLZO SQRT Z~SUB 


Except hen the are _used for the XFOOT and LOKUP o tions 
factor ¥ and Factor 2 cannot contain array names fn ess thé 


result field also contains an array name (see Section 7, columns 
18-27, 33-42, and 43-48). 


Several operation codes can be used only with an individual iten, 
rather than an array name alone: 


BITOF DSPLY 
BITON TESTB 
COMP TESTZ 


The array name, including the comma and index, must fit in the 
factor or result field in which it is used. 
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When array names are used without an index in calculations, the 
following rules apply: 


Whenever the factors and the result field are arrays with 
the same number of items, the operation is performed 
sequentially. The first item from every array is used first, 
then the second item, and so forth, until all items in the 
arrays have been processed. If the arrays do not have the 
same number of entries, the operation ends when the last 
item of the array with the fewest items has been processed. 


Whenever one of the factors is a field or constant, and the 
other factor and the result field are both arrays, the 
operation is performed until every item in the shorter array 
has been used. The same field or constant is used in all of 
the operations. 


Since multiple operations are being performed, resulting 
indicators (oolunne 54—~59) cannot be used except for the 
XFOOT and LOKUP operations. 


When a table name is used in calculations, the operation is 
usually performed using only the table item last found in a LOKUP 
operation. The item is treated as any other single item would he. 
Only the ITOKUP and XFOOT operation codes can reference all of the 
items in a table at one time. 


TABLE AND ARRAY OUTPUT 


When the last record indicator (LR) is on, entire tables and 
arrays, except for execution time arrays, can be written or 
punched out at the end of the job under automatic control of RPG 
II. Execution time arrays cannot be written or punched ont at 
end—of—job under RPG II control. To indicate that a table or 
array is to be output, the name of the output file to be used is 
specified in columns 19-26 of the Extension Specifications Sheet. 
This causes the program to write out the entire table or array 
with all changes included. The Output-Format Specifications Sheet 
(Section 8) is used in conjunction with the Extension 
Specifications Sheet when tables and arrays are to be written out 
in a format different from the one in which they were read in. If 
execution time arrays need to be written out, the output-format 
specifications can be used to do so. 
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To indicate that an entire table or array is to be written ona 
Single output record, the table or array is described on the 
Output—Format Specifications Sheet along with any other fields 
for the record. Columns 32-37 of the output specifications must 
contain the same table or array name as the one used on the 
Extension Specifications Sheet, and columns 40-43 must contain 
the record position where the last field of the array is to end. 


If an output record is to contain only certain items from a table 
or array, the items are described on the output sheet in the same 
way as normal fields, either by an array name with an index or by 
a table name used as the field name. Table names on the 
Output-Format Specifications Sheets cause the last found table 
entry to be written out instead of the entire table. 


When an entire rete is to_ be edited, any editing specified 
applies equally to items in the array. If differing editing 
requirements exist for individual items, these items must be 
referenced individually. (See Section &, "Edited Fields," for 
more information on editing. ) 


When an edit code or edit word is specified on the output sheet 
for an entire array, edited array items are separated by two 
blanks each (see Section 8, "Kdited Fields"). 


TADLE AND ARRAY DESCRIPTION 


One extension specifications line is used for each table or array 
to be defined. The columns in which entries should be made depend 
upon whether a single table or array or alternating tables or 
arrays are to be loaded, and the loading time (compilation, 
pre-execution, or execution). When only one table or array is 
bei described, columns 11-45 are used. When tables or arrays 
are ing described in alternati format, columns 11-45 are used 
for the first table or array and columns 46-57 of the same line 
are used for the second. ? 


Compile time tables or arrays are described in columns 27-45. 
Pre—execution time tables and arrays are described in columns 
12-18 and 27-45. Execution time arrays are described only in 
columns 27-32 and 36-45. 


Compile time and pre-execution time ered can include entries in 
columns 19-26 ("to" filename) if the table or array described is 
to be written or punched at the end of the job, and in columns 
46-57 to describe an alternating table or array. Execution tine 
arrays cannot have "to" filename and alternating array 
specifications. 
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Tables and arrays may be specified on the extension sheet in any 
sequence; however, the sequence in which they are specified 
determines the order in which they will be loaded. Compilation 
time and pre—execution time tables and arrays can be mixed. 


CODING INSTRUCTIONS 


Detailed descriptions of the extension entries to be coded on the 
specifications sheet are defined below. Extension specifications 
are used to complete the description of record address files as 
well as to describe tables and array. Columns 7—80 may be used 
for comments (see Section 3, columns 7-14). 


PAGE NUMBER (Columns 1-2) 


Entry Description 
O1~99 Specifications sheets are numbered 
sequentially. 


More than one of each type of specifications sheet may be used in 
the course of coding the source program. To keep the sheets in 
the proper order, the coded Extension Specifications Sheets must 
be grouped together sequentially and arranged with the other 
specifications sheets in the following order: 


Control Card and File Description 
Extension and Line Counter 

Input 

Calculation 

Output—Format 


The specifications sheets should then be numbered in ascending 
sequence. | 
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LINE NUMBER (Columns 3-5) 


Entry Description 
Any number Line numbers are assigned in 


ascending sequence. 


Line numbers are preprinted in columns 3-4 of the specifications 
sheet for the programmer’s convenience, The unnumbered lines 
below the preprinted numbers can be used for additional lines or 
to insert a line between two completed lines. Column 5 can also 
be used to this end. The line mmbers assigned need not be 
consecutive, but they must be in ascending order. 


TYPE OF FORM (Column 6) 


Entry Description 
E FE identifies the extension 


specifications to the compiler. 


"FROM" FILENAME (Columns 11-18) 


Entry Description 
Blank Either a compilation time or an 


execution time table or array is 
being described. 


Record The name of the record address file 
address used in the file description 
filename specifications is entered. 

Table or The name of the pre-execution time 
array table or array file is entered. 
filename 


The "from" filename entry in columns 11-18 is used to name a 
record address file or a file used for loading a pre-execution 
time table or eteey Every pre—execution time table or array 
filename used in the program must be named on an extension 
specifications line. kEkach entry must begin in column 11 and can 
be from one to eight characters long. Since more than one 
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pre~execution time table or array can be read from the same file, 
the "from" filename may be the same for more than one table or 
array. When two or more pre—execution time tables or arrays are 
read from the same file, the tables or arrays must be in the same 
order as they are on the file extension cards and must be 
separated by records with ** in the first two record positions, 


No entry should be made in columns 11-18 for compile time or 
execution time tables or arrays. 


"TO" FILENAME (Columns 1926) 


Entry Description 
Blank Bither an execution time array is defined 


on this line; or the compile time or 
pre-execution time table or array being 
defined is not to be written or punched 
out at the end of the job. 


Input or The name of the file that is processed 
update by the record address file named in 
filename columns 11-18 is entered. 

Output The name of the output file on which a 
filename compile time or pre—execution time table 


or array is to be written or punched at 
end—of-—job is entered. 


If a record address file was described in the “from" filename 
columns (11-1€), the "to" filename must contain the filename of 
an input or update file. The record address "to" filename is the 
name of the primary or secondary file to be processed by the 
record numbers or keys in the record address file. : 


Columms 19-26 can also be used to specify the filename of the 
output fiie to be used to write or punch the tables or arrays 
named in columns 27-32 and 46-51. Columns 1926 should be left 
blank if the tables or arrays are not to be written or punched. 
Columns 19-26 cannot be used for execution time arrays, since 
execution time arrays cannot be written at end~of—job. 


After all other records have been written or punched, a compile 
or pre~execution time table or array intended for output will 
automatically be written or punched in the same format in which 
it was entered, unless the output table or array is rearranged 
through output-format specifications (see Section 8). Table or 
array output can also be formatted by the use of exception lines 
so that one item is written at a time (see Section 7). 
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TABLE OR ARRAY NAME (Columns 27-32) 


Entry Description 
Blank A record address file is being 


described. (No further specifications 
should be entered on this line. ) 


Table or The name of the table or array being 
array name described is entered. 


Columns 27-32 are used to assign a name to the table or array 
being described. When alternating tables or arrays are being 
described, columns 27-32 must name the table or array whose item 
is found first on the input record. 


The name le to a table or array must begin in column 27 and 


must foll«w the rules providec in “Table and Array Names" in the 
beginning of this section. 


NUMBER OF ITEMS ON EACH RECORD (Columns 33-35) 


Entry Description 
Blank Indicates that an execution time array 


is being, described. 


1-999 Indicates the number of table or array 
items on each table or array input record, 


Columns 35-35 are used to specify the exact number of table or 
array items on each table or array input record. The entry must 
end in column 55. Leading zeros are not required. Every input 
record for the table or array except the last record must contain 
the same number of items as the number specified in columns 
33~35. The last record may contain fewer entries than that 
number, but never more. 


When two tables or arrays are described in alternating format, 
each input record must contain the corresponding items from the 
tables written in alternating form. Corresponding items from 
alternating tables or arrays are considered one item and must be 
on the same record. Comments may follow table or array items on 
the table input records whenever there is room. 


Columns 33—35 must be blank for execution time arrays. 
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NUMBER OF ITEMS IN TABLE OR ARRAY (Columns 36-39) 


Entry Description 
1-~9999 Indicates the maximum number of table 


or array items. 


Columns 356-39 are used to specify the maximum number of table or 
array items which can be contained in the table or array named in 
columns 27-32. The entry must end in column 39. If a table or 
array is full, the number entered in columns 36~39 specifies the 
exact number of items in it. If a table or array is not full, the 
entry specifies the maximum number of items that can be put into 
the table or array. The entry also specifies the number of items 
in a table or array in alternating format (columns 46-51), since 
both must contain the same number. 


LENGTH OF ITEM (Columns 40-42) 


Entry Description 

1-15 Indicates the number of digits in each 
item of a numeric table or array. 

1-255 indicates the number of characters in 
each item of an alphanumeric table 
or array. 


Columns 40-42 are used to specify the length of each item in the 
table or array named in columns 27-52. The entry must end in 
column 42. Leading zeros are not required. The length of a 
numeric item camnot exceed 15 digits, and the length of an 
alphanumeric item cannot exceed 255 characters. 


When a numeric table or array in binary or packed decimal format 
is described, the unpacked decimal length must be entered (see 
Section 6, “Numeric Field Format"). 5 is entered for a 
two-character (two-—byte) binary field and 10 is entered for a 
four-—character binary field. 


The length specified in columns 40-42 applies to all the items 
within a table or array. When necessa leading zeros must be 
added to numeric items and leading lanks must be added to 
alphanumeric items to achieve the specified length. 
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When tables or arrays are described in alternating format, the 
entry applies to the table or array whose item appears first on 
an input record. 


PACKED OR BINARY FIELD (Column 43) 


Entry Description 

Blank Data is either alphanumeric or in 
unpacked decimal format. 

P Data for the table or array is in 
packed decimal format. 

B Data for the table or array is in binary 
format. 


The format of the items ina numeric table or array named in 
columns 27-32 is specified in column 43 as unpacked decimal, 
packed decimal, or binary. (See Section 6, “Numeric Field 
Format," for a discussion of formats. ) 


If the item is in packed decimal format, the entry must be P. If 
the item is in binary format, the entry must be B. If the item is 
in either alpharumeric or unpacked decimal format, column 43 is 
left blank. Compile time tables and arrays are always in either 
an ea or unpacked decimal format (column 43 is left 
blank). 


When tables or arrays are described in alternating format, the 
entry applies to the table or array whose item appears first on 
an input record. 


DECIMAL POSITIONS (Column 44) 


Entry Description 
Blank The table or array items are alphanumeric. 
0-9 The number of positions to the right of 


the decimal in numeric table or array 
items is specified. 
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No entry is made in colum 44 for alphanumeric tables or arrays, 
but an entry must be made for every numeric table or array. 


As many as nine positions may lie to the right of the decimal in 
numeric table or array items. If no decimal positions exist, the 
entry must be zero. 


When alternating tables or arrays are described, the entry in 
colum 44 applies to the table or array whose item appears first 
on an input record. 


SEQUENCE (Column 45) 


Entry Description 
Blank The data in a table or array is not 


in any special order. 


A The data in a table or array is in 
ascending order. 


D . The data in a table or array is in 
descending order. 


The sequence entry is used to specify whether the data in a tahle 
or array is in ascending or descending order. The table or array 
is then checked when it is loaded for the sequence specified (see 
Section 6, "Sequence"). A severe error occurs if a pre-execution 
time table or array is out of sequence, and the program halts 
immediately. Execution time arrays are not checked for sequence, 
but column 45 must contain an entry if high or low LOKUP is to be 
used (see Section 7, “Operation Codes"). 


When alternating tables or arrays are described, the sequence 
entry applies to the table or array whose item appears first on 
an input record. 


SECTION 4 PAGE 18 


ALTERNATING TABLE OR ARRAY (Columns 46-57) 


If alternating tables or arrays are being described, the 
specifications for the second table or array are entered in 
columns 46-—-57. Tables must alternate with tables, and arrays mus 
alternate with arrays. The table or array described in these 
columns must be loaded in alternating format with the table or 
array named in columns 27-32 of the same line. An execution time 
array cannot have an alternating array. | 


Entries in columns 46-57 must follow the same criteria given for 
the corresponding columns, c2/~32, used for the first table or 
array described. 


COMMENTS (Columns 58-74) 


Entry Description 
Any These columns are used for programmer 
characters comments. 


Since columns 56-74 are disregarded by the compiler, they can be 
used to make notations. These will appear on the program listing 
after compilation and may assist the programmer in remembering 
details about the table or array described on each specification 
line. 


Comments columns serve solely as an aid in documenting the source 
program, and they may contain any characters in the character 
set. 


PROGRAM IDENTIFICATION (Columns 75~S0) 


imtry Description 
Any These columns may be left blank or used for 
characters program identification or for comments. 


The program identification field of alli cards following the 
control card may contain any characters, including blanks. The 
field may therefore be a contimation of the comments field in 
columns 53-74. 
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SECTION 5- LINE COUNTER SPFCIFICATIONS 


Line counter specifications are used for printer files in a 
program when external controls, such as sensing channel 1¢ for 
overflow, are not applicable or not desirable. The specifications 
are written on the RPG II Fxtersion and [Line Counter 
Specifications Sheet (Figure 51). In addition to their uce in 
controlling spacing ty relating line numbers on a form to printer 
channel numbers, line counter specifications may alternatively be 
used to indicate the length of the form used in a printer ard at 
what line overflow occurs. If no lire ccunter specifications are 
made, the form lengrth is assumed to be 66 lines, and line €0 is 
assumed to be the overflow line. 
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Figure 5-1. RPG II Extension and Line Counter 
Specifications Sheet. 
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CODING INSTRUCTIONS 


Detailed descriptions of the line counter entries to be coded on 
the specifications sheet are defined below. 


PAGE NUMBE. (Columns 1-2) 


Entry Description 
01-99 The specifications sheets are numbered 
sequentially. 


More than one of each type of specifications sheet may be used in 
the course of coding the source program. To keep the sheets in 
the proper order, the coded Line Counter and Extension 
Specifications Sheets must be grouped together sequentially and 
tees with the other specifications sheets in the following 
order: 


Control Card and tile Description 
iixtension and Line Counter 

Input 

Calculation 

Ov tput—Format 


The specifications sheets should then be numbered in ascending 
sequence. 


LINE NUMBER (Columns 3-5) 


bntry Description 
Any number Line numbers are assigned in ascending 
sequence. 


Line numbers are preprinted in columns 3-4 of the specifications 
sheet for the programmer’s convenience. The unnumbered lines 
below the preprinted numbers can be used for additional lines or 
to insert a line between completed lines. Column 5 can also be 
used to this end. The line numbers assigned need not be 
consecutive, but they must be in ascenaing order. 
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TYPE OF FORM (Column 6) 


Entry Description | 
L L identifies the line counter 


specifications to the compiler. 


FILENAME (Columns 7-14) 


Entry Description 
1-8 The output file to be printed is named. 
characters 


The filename must begin in column /. Filenames entered on the 
Line Counter Specifications Sheet must also be defined on the 
File Description Specifications Sheet. The output device assigned 
to the file specified on the File Description Specifications 
Sheet must be a printer. 


A valid filename consists of one to eight characters. The first 
character must be alphabetic; the remaining characters may be any 
combination of phabetic and numeric characters. Special 
characters are not permitted, and the first character cannot be 
one of the following characters: #, $, or @. Blanks cannot appear 
between characters in the name. Columns 7~&0 may also be used for 
comments (see Section 3, columns 7-14). 


LINES AVAILABLE OR LINE NO. (Columns 15-17) 


Entry Description 
1—255 | Indicates the number of print lines 


available on & page or form. 


The lines available entry specifies the exact number of lines 
available on the page or form to be printed. The entry must be 
right—justified. Leading zeros may be omitted. When no entry is 
made, the standard value of 66 lines is assumed. 
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Columns 15-17 may also be used to relate a report line toa 
channel number. See columns 15-74 for an explanation of this type 
of specification. 


When columns 15-17 are used to specify the number of lines 


available on the page, an L must be specified in column 53 of the 
control card. 


FORM LENGTH (FL) OR CHANNEL NO. (Columns 18-19) 


Entry Description 
FL Indicates to the program that 


the form length was specified in 
columns 15-17. 


FL is mancatory in columns 18-19 if the form length has been 
specified in columns 15-17. When FL is used, an L must be 
specified in column 55 of the control card. 


Columns 1819 may also be used in conjunction with columns 15-17 


to specify a channel number related to a report line. See columns 
15-74 for an explanation of this type of specification. 


OVERFLOW LINE NC. OR LINE NO. (Columns 20-22) 


Entry Description 
1-255 specifies the line number of the 


overflow line, 


The overflow line number entry specifies the exact point ona 
page or form at which overflow occurs. The entry must be 
right-—justified. Leading zeros are not required. When the 
overflow line no. entry is left blank, the standard value of 60 
is assumed. 


Indicating a line slightly above the bottom of the page as the 
overflow line enables totals information to be included between 
the specified overflow line and the bottom of a printed page or 
form. When a space, skip, or print operation (see Section 8, 
columns 17-22) carries printing one line below the overflow line, 
the overflow indicator turns on to signal that the end of the 
page is near. When the overflow indicator is on, the program 
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or ashen reag | prints the extra information before forms are 
advanced to the next page. Deteil lines are printed, if this part 
of the program cycle has not already been completed; total lines 
are printed; and total. lines conditioned by the overflow 
indicator are printed. 


The overflow line should be placed high enough on the page to 
allow for this wrap-up and for any speci printing. 


Columns 20-22 may also be used to relate a report line toa 


channel number. See columns 15-74 for an explanation of this type 
of specification. 


OVERFLOW LINE (OL) OR CHANNEL NO. (Columns 23~24) 


Entry Description 
OL Indicates to the py Caren that an 
overflow line number was specified in 


columns 20-22. 


The OL entry is required in columns 23-24 whenever an overflow 
line number has been specified in columns 20-22, OL is normally 
used if an L is specified in cclumn 53 of the control card. 


Columns 23-24 may also be used to relate a channel number to a 


report line. See columns 15-74 for an explanation of this type of 
specification. 


LINE NO. and CHANNEL NO. (Columns 15-74) 


Entry Description 
1-255 Specifies the line number. 
1-12 Specifies the related channel number. 


The fields in columns 15-74 may relate specific line numbers on 
the report to channel numbers used on the Output-Format 
Specifications Sheet (Section 8). The line numbers of the form 
are entered in the line no. columns, and the channel numbers to 
be related to each line are entered in the associated channel no. 
columns. The specifications for the channels may be entered in 
any order. The entries must be right-justified. Leading zeros may 
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be omitted. The highest permissible line number is 255, and the 
highest channel number is 12. 


A form length should not_be specified for a file when channel 
numbers are being used. Columns 15-19 should be used to specify 
the first line number—to-—channel number relation, or they may be 
estes instead of columns 20-24 to specify the overflow line 
number. 


Channels may be used to control the spaci on a printed page. 
The printer carriage control tape illustrated on a print chart 
coding form (see Figure 1-5) has 12 vertical lines on it, one for 
each channel. Holes may be punched on the tape along channel 
lines, opposite output lines. If the program encounters a channel 
skip instruction (see Section &, columns 14-22), the printed page 
is automatically advanced to the next output line associated with 
the given channel. The line-to-channel number relations are 
specified on the Line Counter Specifications Sheet. 


The rules that apply to the printer carriage control tape also 
apply to line counter channel number assignments. Only the 
channeis used in the output-format specifications should be 
specified. Several output-format specifications lines may be 
related to one channel. Only a single channel number may be 
assigned to a particular line. Only one line of the line Counter 
Specifications Sheet may be used for a file. 


Channel 1 iS pre-assignea to tne first print line on the page, 
and channel i2 is pre-assigned to the overflow line; thus 
"overflow line"/"OL" and "channel 12" are synonomous terms and 
should not be used together. Ii channel 1 is not assigned, line 6 
is assumed to be tne first print line of the page; and if channel 
j2 is not assigned, line 60 is assumed to be tne overflow line. 
Both channels 1 and 12 must be assigned if automatic skipping 
from the end of a form after channel 12 to the beginning of the 
next form at channel ji is desired. 


Line Counter 


1 OR LINE NO. 


Figure 5-2. Report Line-to—Channel Number Relation. 


Figure 5-< shows how entries are made to relate a report line to 
a channel number. On the first line, entries in columns 15—24 
specify a form length of 50 lines (50FL) and assign overflow at 
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line 45 (450L) for file FLE1A. An L must have been specified in 
column 53 of the control card (Section 2, column 53). 


No form mga is specified for file FLE2B, but all the entries 

in columns 15-29 are used to relate report lines to channel 

numbers. The fifth line of the report is assigned to channel 2, 

the tenth line of the report is assigned to channel 3, and the 

fiftieth line is specified as the overflow line by assigning it 

ss Sane aaa 12. The first print line of the report is assumed to 
ine 6. 


Figure 5-2 shows the two ways in which the line counter 
specifications can be coded. n form length and overflow line 
entries are used they should be placed in columns 15-24. When 
channel number assignments are used, specifications must begin in 
columns 15-19. 


PROGRAM IDENTIFICATION (Columns ‘75-80) 


Entry Description 
Any These columns may be used for programmer 
characters . comments. 


The program identification entry of all cards following the 
control card may contain any characters, including blanks. The 
columns may be used for programmer comments, if desired. 
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SECTION 6. INPUT SPECIFICATIONS 


risen oe records, and fields of the records to be used as 
nput an object gram described the RPG II Input 
Specifications heet a igure 6-1). ated tions tbr the 
descriptions fall into two divisions: file an record ty 

identification entries, specified in columns 7-42; and field 
description entries, specified in columns 43-74. The field 


description entries must start at least one line lower than the 
file and record type identification entries. 
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Figure 6-1. REG II Input Specifications Sheet. 


RECORD INDICATORS 


A single file can contain more _ than one t of record, and 
different operations can be performed for each type. To control 
the processing of the various record types, a record indicator is 
assigned to each type in columns 19-20. When a record type is 
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selected for processing during tne execution of the object 
program, its corresponding record indicator is turned on to 
identify the record type to the system. (Al1_ other record 
indicators are off unless a chained file is being processed; more 
than one record in a chain file can be processed at a time.) Once 
the indicator is turned on, the system knows what record type has 
been selected for processing and the proper operations can be 
performed. 


Columns 19-20 can be used for three purposes: to specify record 
identifying indicators, to indicate look-ahead fields, or to 
designate a spread card trailer. (See Appendix B, Tables B2 and 
B35, and Section 7, “Indicator Setting Operations," for indicator 
summaries. 


RECORD IDENTIFYING INDICATORS 


Record identifying indicators are used to distinguish between 
record types or to check for a record type that causes an error 
condition. 


LOOK-AHEAD FIELDS 


The use of look-ahead fields allows the System to look at 
information in fields on the next record available for processing 
in an input file. In update files, the entry refers to a field in 
the record currently being processed. Look-ahead fields cannot be 
specified for chained or demand files, or as array fields. 


Once the last record from _a file has been processed, every 
look-ahead field for the file is automatically filled with 9’s 
which remain in the fields until the job is ended. 


SPREAD CARIS 


Spread cards allow one or more transactions (trailers) or items 
of information to be linked to a single header. RPG II’s spread 
card capability eliminates the need for a separate header card 
for each transaction (trailer portion). A single card can contain 
the header and all of the transactions. The information can be 
compressed so that a trailer portion rp consist of as many 
fields as are necessary; however the same fields must appear in 
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each trailer portion following the header. A trailer portion 
cannot be split between two records. 


CHARACTER STRUCTURE 


The structure of a character is important in its use as part of 
the record code (colums 21-41). Each alphabetic, numeric, or 
special character is represented by a unique combination of 
punches in a keypunched card. Each punched character consists of 
two parts: a zone portion, and a digit portion. When the 
character is read into the computer, it retains this composition 
even though it has been translated into eight magnetic bits for 
computer representation in storage. As a result of the 
translation, the representation of a character in the machine may 
not be identical to its configuration on a keypunch card; those 
characters with the same zone punch in the card may have 
different zone punches in the computer. Characters are stored in 
the machine in  EECDIC form. It is the EBCDIC machine 
representation of a character that must be considered in such 
functions as sequencing, testing, identifying, or comparing 
records. 


All characters can be arranged in a _ certain order which is 
governed by the way their zone and digit portions are represented 
in the machine. Thus each character’s machine representation will 
have a special position in relation to all others in a collating 
‘sequence. 


NUMERIC FIELD FORMAT 


The entry in column 43 describes the format of a numeric field. 
Three different numeric field formats are used in RPG II: 
unpacked decimal (Figure 6-2), packed decimal (Figure 6-3), and 
binary (Figure 6-6). 


UNPACKED DECIMAL FORMAT 


In unpackec decimal format, each byte of computer or disc storage 
can hold one alphabetic, numeric, or special character. Each byte 
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is divided into eight bits: a four-—bit zone portion followed by a 
four—bit digit portion. Each digit in a decimal number contains a 
zone position which indicates whether the number is positive or 
negative. In unpecked decimal format, only the zone of the 
rightmost byte of the rightmost digit serves as the positive or 
nepative sign. | 


arena ner RN I A A Ne en 


3-DIGIT NUMBER OCCUPYING 3 BYTES OF DISC STORAGE 


FIRST DIGIT SECOND DIGIT THIRD DIGIT 
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Figure 6-2. Unpacked Decimal Format. 


PACKED DECIMAL FORMAT 


In packed decimal format, each byte of storage is divided into 
two four-bit digit portions and no zone is used. The plus or 
minus sign for a packed decimal field is contained in the 
rightmost portion of the rightmost byte. 
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Figure 6-3. Packed Decimal Format. 
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PACKED DECIMAL REPRESENTATION 


The packed decimal coding system uses a four—bit code to 
represent a mumeric character, but to conserve space the zone 
bits are excluded and a sign bit is added to the least 
significant byte. If the number is negative, the rightmost four 
bits of the least significant byte contain 1101. If the number is 
positive, the rightmost four bits of the least significant byte 
contain 1100. Figure 6-4 illustrates.this convention with the 
mamber —4, 902. 


4 9 0 2 Sign 


Figure 6-4. Packed Decimal Representation in the Computer. 


When an external device enters unpacked numeric data, each digit 
is preceded by a four-bit zone byte. Figure 6-5A illustrates the 
greater quantity of memory which would be required if the System 
could not pack the decimal codes before they were stored, and 
Figure 6-5B illustrates the number as it would appear in memory 
if it were packed. Both figures use the number 5, * 


(A) | 1111 | 0101 | 1111 | 1000 | 1111 | 0100 /1100 | co10 
| 2 


Zone 5 8 4 Sign 
coo [oor |e [ooo [ona [00 
5 8 4 2 Sign 


Figure 6—5. Memory Required for Packed vs. Unpacked Numeric Data. 


Packed fields are positive if the sign is a hexadecimal F, A, C, 
E, O, 2, 4, 6, 7, or 8 Packed fields are negative if the sign is 
a hexadecimal B, D, 1, 3, 5, or 9- 
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BINARY FORMAT 


Binary format numbers are in twos complement form, In binary 
format, each field on disc must be either two or four bytes long. 
Iwo bytes of disc storage can contain up to five decimal numbers 

and four bytes of disc storage can contain up to ten decimé 

numbers. 


Two-byte binary fields contain a one-bit sign followed by a 
15—bi numeric value so that in binary format any decimal number 
up to 32,767 requires only two bytes of disc storage, at the 
most. for each two-byte binary field stored on disc, the system 
automatically sets aside five digits of storage to accommodate 
the field when it is converted to packed format. 


Four-byte binary fields contain a_ one-bit sign followed by a 
31—bit numeric value; thus in binary format any decimal number as 
hich as <,147,483,647 requires a maximum of only four bytes of 
disc storage. The system automatically sets aside ten digits of 
menory storage to accommodate each four—byte binary field stored 
on disc when it is converted to packed format. 
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NUMERIC VALUE UP TO 6 DECIMAL 
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FOUR-BYTE BINARY FIELD 
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Figure 6-6. Binary Format. 
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FIELD NAMES 


A field name is used in columns 53-58 to identify a particular 
field, array, or array item in an input record. Each field in 
each record type must be given a unique name from one to six 
characters long. The assigned name can then be used throughout 
the program whenever the field is referenced. 


Fach field name assigned requires a separate line on the Input 
Specifications Sheet. Names of the fields must be indicated for 
all types of records, however on the fields that are used need 
to be named. Fields which are read in from a card are limited to 


the length of one punched card. 


All fields in a specific record type should be assigned different 
names, since only the field described last is used if fields are 
identically named within a record type. If they are the same 
length and contain the same type of data, however, fields from 
different record types may have the same name regardless of their 
location in each record type. Although each field with the same 
name still requires a separate description, the OR relationship 
may be used to avoid duplicate coding. 


If the form or report to be output consists of several pares, it 
is usually desirable to number the pages. Page numbering normally 
begins with page 1 and is handled automatically when the 
pre—defined RPG II field name PAGE, PACE1, or PAGE2 is entered in 
the Output-—Format Specifications Sheet (see Section 8, columns 
32—37), however the field name entry can be used in the Input 
Specifications Sheet to indicate that page numbering is to start 
at a page other than page 1. 


CONTROL FIELDS 


A control field is a field to which a control level indicator 
(L1-L9, columns 59-60) has been assigned to indicate the point at 
which specified operations are to be performed. 


Whenever a record which contains a control field is selected, the 
data in the control field is. compared with the data in the 
control field of the previously selected record. All records with 
the same information in the control field form a control group. 
If two control fields are not the same, a control break occurs, 
and the control level indicator is turned on. A control break 
allows operations conditioned by the control level indicator to 
be performed before a new record is processed (see Section 7, 
columns 9-17 and Section 8, columns 23~—31). Undesirable control 
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breaks may occur if all the record types within a given file do 
not have the same number of control fields. 


A control break most a tak pe te occurs after the first record 
containing a control field is Since it is compared to an 
area in storage which contains no pone Pre Total calculations and 
total output operations are bypassed for the first record 
containing a control field because fields fron two different 
records are not being compared. 


Within the same record byRes record columns in control fields 
assigned different control level indicators may overlap, but the 
total number of columns assigned as control fields, when each 
control level is counted only once, must not exceed 255. 


NUMERIC CONTROL FIELDS 


If a control field is specified as numeric in column 52, all 
control fields for which the same control level indicator has 
been specified are considered numeric. 


Control fields are initialized to hexadecimal (logical) zeros, or 
to the lowest alternate collating sequence value given, before 
they are processed. When numeric control fields with decimal 
positions are compared for a control break, the decimal point is 
ignored; all the digit portions of as cified numeric field are 
used in the comparison, and all fields are treated as unsigned 
fields with the number of decimal ee tions ignored. 


SPLIT CONTROL FIELDS 


A split control field is a control field that is made up of two 
or more connected or unconnected fields on a record. ihe sane 
control level indicator is assignec to all parts of a split 
control field. The incicator-rlagged fields are then combined by 
the program in the order specified in the input specifications 
and treated as one control field. 


A single control level indicator is assigned to all portions of a 
split control field. Since field names are ignored in control 
level operations, fields from different record types which have 
been assigned the same control level indicator may have the same 
name. 
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If the field names are different, the length of the portions of a 
split control field may vary for different record types, or the 
field may be split in some record types and not in others. In 
both cases the total length of the portions of the split field 
must be the same in all record types. 


If the same control level indicator is used in different record 
types or files, the control fields associated with that control 
level indicator must agree in length and content, containing 
either alphabetics or numerics. The format of the portions of a 
split control field cannot vary; all must be packed decimal, or 
all must be alphabetic. 


A numeric split control field may contain more than 15 characters 
j any one portion of the split field does not exceed 15 
characters and the sum of all the components of the control field 
does not exceed 255 characters. 


CONTROL LEVEL INDICATORS 


Control level indicators always turn on after the first record of 
a control group is read, to indicate that a change in a control 
field has occurred. Since indicator LO is always on, it can never 
be used as an assigned indicator in the input specifications. 


Control level indicators are used in columns 5S-60 to signal that 
operations are to be performed on only the first record in a 
control group; that operations are to be performed after all 
records with the same control field information (all records in 
the control group) have been read; or to print totals 
informetion. (Control level indicators ere also used as record 
indicators in columns 1% 20, and as field recorc relation 
indicators in columns 63-64.) | 


Control level indicators are assigned to control fields in the 
order of the fields’ importance, but they need not be assigned in 
any sequence and gaps can occur in the control levels assigned. 
Before an indicator is assigned, each field should be assessed 
for its importance in relation to the other control fields, and 
the indicator chosen accordingly. Larger numbers are higher in 
rank than lower numbers. All indicators with a lower rank 
automatically turn on or off when a higher-—ranking level break 
occurs; for example when an L3 control break occurs, control 
level indicators Li, 12: and L3 all turn on. 


Control level indicators can be turned on or off by operation 
codes SETON and SETOF (see Section 7, “Operation Codes"), however 
control: level indicators lower in rank than the one specified do 
not turn on or off in this case. 


SECTION 6 PAGE 10 


MULTIFILE PROCESSING 


The selection of records for processing from more than one file 
is called multifile processing. Although records are always read 
from a aad file and one or more secondary files in multifile 
processing, the method used in selecting them is governed by the 
presence or absence of match fields in the records. 


If match fields are not specified, the primary file is processed 
first and the secondary files are processed in the order in which 
they are described in the file description specifications. If 
match fields are specified (columns 61-62), fields from records 
in the primary file are compared to fields from one or more 
secondary input or update files for a matching record. 


MATCH FIELDS 


When the match fields method of record selection is used, records 
are selected according to the contents of specified fields. One 
record is read from every file and specified fields in each 
recora are compared to the primary file for a match. Whenever a 
record from the primary Tile matches a record from the secondary 
file, the primary file record is processed first, then the 
matching secondary file record is processed, unless another file 
is forced a Section 7, “Operation Codes - IFORCE"). The record 
indicator (columns 1920) is on at the time the record is 
processed to identify the record type just selected and control 
the type of processing that takes place. 


If the records are in ascending order, the record with the lowest 
match field is selected for processing. If the records are in 
pene ti order, the record witn the highest match field is 
selected. 


After a record has been selected frox a file and processed, the 
next record from that file is read. It is compared for a match 
field at the beginning of the next program cycle, using for 
comparison the records that were not selected during the previous 
cycle. Match comparing continues in the same manner until ail the 
records in all the files have been processed. 


Records can be matched by comparing one field or many fields. 
When the primary record field matches a field in one or more of 
the secondary records, the matching record indicator (MR) turns 
on. ‘The methine record selected for processing is determined by 
the priority of the files from which the records cane. 
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A record for which no match field has been specified is selected 
before records with specified match fields, and is processed 
immediately after the record it follows, with the MR indicator 
off. If this record type is first in the file, it is processed 
first even if it is not the primary file. If match fields have 
not been specified for two or more of the records being compared, 
the order of their selection is determined by the priority of the 
files from which the records came. 


Match fields are not required for all the files used or for all 
the record types within one field; however at least one record 
type from two files rust have match fields if files are ever to 
be matched. Sequence checking, alone, is performed if match 
fields are specified for only one file. 


MATCHING RECORD INDICATOR 


The MR indicator is used to condition calculation or output 
operations for a selected record with a match field. The 
indicator turns on when a specified field in a primary file 
record matches a specified field in a secondary file record. The 
indicator is always set on or off before any calculation 
operations not conditioned by control level indicators are 
performed (see Section 7, columns 7-&), and retains the setting 
for one complete program cycle. If all primary file records match 
all seconcary file records, the MR indicator is always on, If 
record types are read for which no matching fields have been 
specified, MR turns off. 


COLING INSTRUCTIONS 


Detailed descriptions of the input entries to be coded on the 
Input Specifications Sheet are defined below. 


PAGE NUMBER (Columns 1-2) 


Entry Description 
01-99 The specifications sheets are numbered 


sequentially. 
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More than one of each type of specifications sheet may be used in 
the course of coding the source program. To keep the sheets in 
the proper order, the coded Input Specifications Sheets should be 
groupea together sequentially and arranged in the following 
order : | 


Control Card and Tile Description 
Extension and Line Counter 

Input 

Calculation 

Output—Format 


The specifications sheets should then be numbered in ascending 
sequence. 


LINE NUEBER (Columns 3-5) 


Intry Description 
Any number Line numbers are assigned in ascending 
sequence. 


Line numbers are preprinted in columns 34 of the specifications 
sheet for the programmer’s convenience. The unnumbered lines 
below the preprinted numbers can be used for additional lines or 
to insert a line between completed lines. Column 5 can elso be 
used to this end. The line munbers assigned need not be 
consecutive, but they must be in ascending order. 


TYPE OF FORM (Column 6) 


Entry Description 
I I is preprinted to idertify the input 


specifications to the compiler. 
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FILENAME (Columns 7-14) 


Entry Description 
1-8 The input or update file being 
characters described is named. 


Livery input or update file named on the Input Specification Sheet 
must previously have been described on the tile Specifications 
Sheet. The exact filename originally choser: must be used and must 
begin in column 7 If the filename is left blank, the last 
filename entered is assumed to be the file being described. 


The filename is entered on tne first line containing information 
relevant to the records in that file. The information on the 
following lines is considered part of the description of the file 
named until a new filename is entered in columns 7-14. Thus it is 
not necessary to repeat the filenare entry waen more than one 
line of description is used for a file. All records and fields 
for a file must be completely described before a new file is 
named for description. Columns 7-8 may also be used for comments 
(see Section 3, columns 7-14). 


SEQUENCE (Columns 15~-1€) 


Entry Description 

Any two Secuence checking is not to be done. 
alphabetic 

characters 

Any two A special sequence is assigned 
numeric to different record types in a file. 
characters 


Seauence checking is not necessary for every file (see Section 8, 
column 18). If different record types do not need to be in any 
special order, any two alphabetic characters can be entered in 
columns 15—16. An alphabetic entry must be made for chained 
files, however, since sequence checking is not possible for that 
type of file. 
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When both alphabetic and numeric sequence entries are specified 
for record types within a single file, the alphabetic entries 
must be made before the numeric entries. 


A numeric entry in columns 15~16 assigns a sequence number to 
different types of records within a file so that records with a 
particular identification code may be checked before records of 
another type which bear another identification code. The record 
types are assigned sequence numbers in the order in which they 
are to appear. The first record type must be given the lowest 
sequence number, O01, and the remaining record types must be 
numbered in ascending order. Sequence numbers need not be 
consecutive as long as they are in ascending order. 


Seauence numbers have no_ connection with control levels. Sequence 
chécking is used solely to ensure that all records of type 01 


precede those of type 02, and so forth. Sequence checking cannot 
be used to designate the order of records within a record type, 
or to check the data fields witnin a record (see "Multifile 
Processing" at the beginning oi this section). 


Sequence entries are not made for records in an AND or OK line. 
The sequence entry from the previous line applies to the card in 
the OR line (see columns 53—55). 


NUMBER (Column 17) 


intry Description 
Blank Sequence checking is not to be 


performed (the sequence entry in 
columns 15-16 is an alphabetic entry). 


1 Only one record of this type is 
| present in the sequenced group. 


N One or more records of this type may 
be present in the sequenced group. 


Column 17 is used to cesignate the number of records of one type 
that are found in the sequence group. When sequence checking is 
not required for the records being Gescribed, column 17 is not 
used. The 1 entry indicates that only one record of the type 
specified in columns 15-16 (sequence) can be present in the 
sequence group. The N entry is used when more than one record of 
the type specified can be present in the sequence group. 


No number entry is requireac for AND lines and OR lines. The 
number designated in the preceding line is applied. (See columns 
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21-41 for a description of AND lines; columns 53—5€ for a 
description of OR lines.) , 


OPTION (Column 18) 


Entry Description 
Blank The record t must be present in 
each sequenced group. 
0 The presence of the record type is 
optional. 


A blank entry indicates that a record of the specified type must 
be present in each sequenced group. When sequence checking is to 
be performed on record types, the O entry indicates that a record 
of the type specified in columns 15-16 Vecquence) May or may not 
be present. The entry prohibits a sequence error from occurring. 
An © should be specified only if a numeric entry was made in 
columns 15-16. 


No option entry is required for A\D or OR lines (see columns 
21-41 and 53-5€, respectively). The entry from the preceding line 
is applied to an AND or Oi line. © 


RECORD INDICATOR (Columns 19~20) 


Entry Description 


01-99 The record identifying indicator is used 
. to specify a particular type of record 
ina file. 


L1-L9 The control level indicator is used as 
| a record identifying indicator to indicate 
that a record type signals the start of a 
new control group. 


LR The last record indicator is used to 
indicate that the job is to end. 


HO-H9 | The halt indicator is used-to check 
for a record type that causes an error 
condition.. : | 
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HH Asterisks are used to indicate 
look-ahead fields in a record. 


TR The trailer specification is used to link 
trailer portions of spread cards to the 
header portion. 


kecord indicator entries are used for a variety of situations. 
They can be used as record identifying indicators, to indicate 
look-ahead fields, or to denote spread cards. 


Record indicators can be assigned in any order; there is no 
prereauisite sequence. A single record indicator may be assigned 
for any number of different record types if the same operations 
are to be performed on all the types (this is a function of the 
OR relationship — see columns 21-41). They need not be assigned 
at all if the difference in record types is not important or if 
only one type of recorc is specified with a file. 


No record indicator may be asSigned for records entered in the 
AND line of an AND relationship (see columns 21-41). Record 
indicators may be assigned in the OR line for every record type 
in the OR relationship that requires special processing (see 
columns 53-58). 


Record identifying indicators comprise four kinds of entries: 
01-99, L1I-L9, LR, and HO-HS. 


01-99 
01-99 is the most frequently assigned record identifying 
indicator. It is use to identify a specific record type in a 


file that contains two or more types of records. 


L1-L9 


Li-L9, the control level indicator, is used to identify a record 
only when a record type, rather than a _ control field (see 
"Control Fields" at the beginning of this section), determines 
the start of a new control group. If a control level indicator is 
used as a record indicator, only that control level indicator 
turns on during record selection. All lower level indicators 
remain off. See Section 7, “Control lTevels," for more 
information on the control level indicators. ) 
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Li 

LR is used to indicate that a job is to terminate. (See Section 
7, "Resulting Indicators," for more information on the LR 
indicator. ) 


HO-H2 


HO-H9, the halt indicator, is used to indicate that checking is 
to be performed for a record type that causes an error condition. 
(See Section 7, "Resulting Indicators," for more information on 
the halt indicator.) 


Look~Ahead Fields 


Look-ahead fields are indicated by entering asterisks (**) in 
columns 19—20 (Figure 6~—7). Look-ahead fields are specified for a 
file rather than for a record type within a file. One set of 
look-ahead fields can be described for each file. The description 
applies to all records within a file, regardless of their type. 
The ** entry is made following the normal field description for a 
file, and the ** line can follow only a file or record type with 
an alphabetic sequence entry in columns 15-16. Columns 17-18 and 
21-74 must be left blank when a look-ahead field indicator is 
used. Look-ahead field descriptions are made in the field name 
columns (5%-58) on separate lines following the ** line. 


Look-ahead fields cannot be altered in the program. They cannot 
be used as a result field (see Section 7, columns 47-48) or 
blanked out after they are written (see Section 8, column 49). If 
the information in a record is to be used both before and after a 
recorad is selected for processins, the field must be described 
once as a look-ahead field, then as a normel field. 
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MEMOREX RPG Il Specifications = | | | : | 


Input 


FILENAME FIELD NAME 


> TYPE OF FORM eae 


LOOK-AHEAD FIEL 
DESCRIPTION 


“ALPHA LOOK-AHEAD FIELD 
SEQUENCE ENTRY SPECIFICATION 
aa 


[- | 
4 
| | 


Figure 6-7. Coding for Look—Ahead Fields. 


Spread Cards 


Spread cards are indicated by entering TR in columns 120 
(Figure 6-8). Spread cards can be specified only when the input 
card files are designated as primary or secondary. Look—ahead 
fields cannot be descrived for spread cards. 


The fields in the header portion of the spread card are described 
on separate specification lines immediately foliowing the proper 
file and record type entries, If_ a numeric enery is made in 
columns 15-16 of the specificetions line containing the file and 
record type entries, an N must be entered in column 17 of the 


same line. 


Bach field in the header portion must be described as would any 
normal RPG II field. Only those fields in the header portion that 
are used later in the program need be described. If no field in 
the header portion is used, the header field specification can be 
omitted and the TR line specified immediately after the file and 
record type entries. 


TR must be entered in columns 19-20 of a specification line to 
indicate that the fields in the first trailer portion are 
described in the specification lines that follow. Columns 7--18 
and 2i~74 of the TR lines are left blank. Since all trailer 
portions must be the same length and must include the same 
fields, only the first one must be described. The compiler uses 
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this trailer specification to calculate how many trailer portions 
the record contains and to determine the beginning and ending 
positions of each. 


trailer fiela description lines are Shears immeciately 
following the TR line. Columns 7-43 and 59-62 must be left blank; 
Otherwise the trailer field descriptions follow the sane rules as 
regular field specifications. 


MEMOREX RPG II Specifications aera a — 
me 


Input 
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Figure 6-8. Coding for Spread Cards. 


RECORD CODE CHARACTERS (Columns 21-41) 


Record code characters (columns 21-41) are used to identify each 
type of record for processing various operations, If all the 
records are to be processed in the same way, regardless of their 
type, or if only one record type is to be used, columns 21-41 may 
be left blank. 


When more than one record type is to be processed in a file, each 
record type is given a special code consisting of a combination 
of characters in certain positions in the record. Any number of 
record code characters may be used. 


On the Input Specification Sheet, seven columns ere required to 
identify a single character. The first six columns are used for 
information describing the character, and the seventh column is 
used for the character itself. Information identifying the first 
three characters of a record code is specified in columns 21-26, 
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26-33, and 35-40, respectively. The character code used to 
identify record types consists of four entries: position, not, 
portion, and character. The characters themselves are specified 
in columns 27, 34, and 41. Coding instructions for the three 
groups of character identification columns immediately follow 
this discussion. 


If more than three record characters are used, the additional 
Characters are described and identified on additional ANIL lines 
of the Input Specifications Sheet. AND lines may be used to 
describe as many characters as are needed after the three entered 
in the first specifications line. To specify an AND line, the 
word AND is written in columns 14-16. 


When @ record type may be indicated by two different codes, OR 
lines must be used to indicate that either one of the codes may 
be present to identiry the record. To write an OR line, the word 
OR is placed in columns 14-15. 


POSITION (Columns 21-24, 2&31, 35-38) 


intry Description 

Blank No record identification code is 
needed. 

1--999° The record position of each character 


of the record code is indicated. 


The position entry gives the record location of each character of 
the recorc code. The location of the first character is entered 


in. columns__21-24, the second in columns 28-31, and the third in 
columns 55-358. Entries must be right—justified, ending in columns 
24, 31, and 38, respectively. Leading zeros are not required. 


NOT (Columns 25, 32, and 39) 


im try Description 
Blank A character is to be present in the 


columns specified by the position entry. 


N A character should not be present in 
the columns specified by the position 
entry. 
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The not entry is used to indicate taat a certain character of the 
record code should not be present in the position specified in 
the preceding position entry columns. 


PORTION (Columns 26, 3%, and 4C) 


Entry Description 


C The entire character is used. 

Z Only the zone portion of the character 
is used. 

D Only the digit portion of the character 
is used. 


lhe portion of a character that is usec as part of tne record 
code is specified in columns 26, 33, and 40. Yhe characters are 
stored in EBCDIC form. Since several characters have either the 
same zone portion or tne same digit portion, they must be chosen 
carefully when recora coaes are established, to avoid ambiguity 
(see "Character Structure" at the beginning of this section.) 


CHARACTER (Columns 27, 44, and 41) 


Entry Description 
Any | Indicates e character used to identify 
character the record. 


The actual characters used in the recoré code are specified in 
columns 27, 34, and 41. Any alphabetic character, special 
character, or digit may be used. 


Characters are stored in the machine in EBCDIC form, where they 
match characters, zeros, and digits according to the EBCDIC 
codes, except for the following cases: 


The character & (ampersand) has the same zone as the 
character { (left brace), which is a 12-0 punch; and as A 
through I. 
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{The character — (minus or hyphen) has the same zone as the 
character } (right brace), which is an 11-O punch; and as J 
through R. 


The blank carries no zone punch; neither do O through 9. 


Although the left and right braces are not printable characters, 
they are still read and used by the computer. 


If the zone portion of the character is being tested, the 
characters & -, and blank compare in exceptional ways. If one of 
these characters or a code with the same zone is punched as the 
compare character, it will compare as equal. If, however, the 
compare character is a character with the same EBCDIC zone as the 
special characters, and a special character is punched in the 
card, it will also compare as equal. 


Since negative numbers are formed by punching a minus sign over a 
digit, they have a different character structure than positive 
numbers. When the zone punch (minus sign) is combined with the 
digit punch (1-9), a different character (a negative mumber) is 
formed which is represented in the machine by the characters J—R. 
if the minus sign is combined with a zero, the right brace 
character (}) is formed. 


Positive numbers, formed by punching an ampersand (&) over a 


digit, are represented in the computer by the characters left 
brace ({) and A through I. 


STACKER SELECT (Column 42) 


Entry Description 
Blank The input cards will automatically fall 


into the stacker. 


This column is reserved for future implementation of the stacker 
select feature. 
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FIFLD DESChIPTION LNTRIES 


PACKED OR BINARY FIELD (Column 43) 


Entry Description 
Blank | The input field is not numeric, or 


is in unpacked decimal format. 
P The input field is in packed decimal format. 


The input field is in binary format. 


The entry in column 43 indicates the format of the input field 
named in columns 53-55. the entry is used only if the field is 
numeric. If the field is alphabetic, alphanumeric, or in unpacked 
decimal format, no entry is made. Arrays in packed decimal or 
binary format require an entry in column 45. 


If a numeric field is in binary or unpacked decimal format, it 
must be converted to packec deécimal iormat before it can be 
processed. Only tne digits and Sign are recognized in the process 
of conversion to packed decimal format. 


FILLD LOCATION (Columns 44-51) 


The lengt:. of the input field named in columns 53—5&5 must be 
specified in columns 44—51. The maximum fielc length for a 
numeric field is 15 positions (8 if the format is packed decimal 
and 4 if it is binary). The maximum length for an alphanumeric 
field is 255 characters. ine record position of the beginning of 
a fiela is specified in columns 44-47; the record position of the 
end is specified in columns 48-51. These are described below as 
separate entries. 
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BEGINS (Columns 44--47) 


Entry Description 
1-4 digit Designates the beginning location 
number of the field named in columns 53—56. 


Tne recorc position of the first caaracter of the input field 
named in columns 53-58 is specified in the begins entry. The 
entry must be right-—justified to end in column 47. Leading zeros 
are optional. 


ENDS (Columns 48-51) 


Entry Description 
1-4 digit Designates the ending location of the 
number input field named in columns 53-58. 


the record position of tne last character of the input field 
named in columns 53-5€ is specified in the ends entry. The entry 
must be right—justified to end in column 51. Leading zeros may be 
omittec. 


DECIMAL POSITIONS (Column 52) 


Entry Description 
Blank Ihe field is alphanumeric. 
O-9 The number of decimal positions in the 


numeric field is indicated. 


If a numeric field is named in columns 53-58, the number of 
positions to the right of the decimal must be specified in column 
52. The number of decimal positions cannot exceed the number of 
digits in the field. Fields that are used in arithmetic 
operations and fields that are edited or zero-suppressed (see 
Section 8, column 38 and columns 45-70) must be defined as 
numeric. 


SECTION 6 PAGE 25 


FIFLD NAME (Columns 53-58) 


Entry Description | 

1-6 alpha- The field, array, or array item 
numerics being specified is named. 

PAGE Special word entries specify that 
PAGE1 page numbering is to be done, 


PAGE2 


Fields in a record must be assigned field names in columns 53~-58. 
A seperate line is used for each field description. The field 
name must be a valid KPG II name. It can be from one to six 
characters long and must begin in column 53. The first character 
must be alphabetic. The remaining characters can be any 
combination of alphabetic and nunreric characters. Special 
characters are not permittec, and blanks cannot appear between 
characters in the name. The name assigned to each Pleld must be 
used throughout the program whenever that field is referenced, © 


To @liminate duplicate coding of identical fields from different 
record types (Figure 6-9A), the OR relationship may be used to 
indicate that the fields named may be found in any of the record 
types (Figure 6-9B). 


The OR relationship is used when two or more record types have 
the same fields in the same positions, or when two or more record 
types have some fields which are identical and some fields which 
differ in location, length, or type of data (numeric or 
alphanumeric). 


In entering an OR reletionshir on the specification sheet, OR is 
written in columns 14-15 following the record identification 
line, and the record codes of the alternate record type are 
specified. The field names are then entered in columns 53-58 of 
the lines following. 
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Figure 6-9. Coding for record Types with Identical Fields. 


If array items are referenced, additional entries may be required 
(see Section 4, "Tables and Arrays"). If an index is used with 
the array name, it must nave been defined previously as a numeric 
literal. An index must be numeric with zero decimal positions. 


The special words PAGE, PAGE], and PAGE2 are field names used to 
indicate that page numbering, on an output form or report is to 
start with a number other than page 1. The alternate page number 
is entered ina field of an input record and the field is named 
PAGE in columns 53-56. Three possible PAGE entries (PAGE, PAGE|, 
and PAGE2) are provided for naming the PAGE field of up to three 
different output files. 
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the PAGE field must be one number less than the actual starting 
page number, and must be right-—justified. For example, if pare 
numbering were to start with 50, the entry in the PAGE field 
would be O049. The PAGE field can be defined and used in 
calculations like any other field (see Section 7, columns 43-48). 


CONTROL LEVEL (Columns 59-60) 


Entry Description 

Blank No control level indicator is to be 
used. 

L1-L9 A control level indicator is to be used. 


The entry in columns 59-60 assigns « control level indicator to 
an input field. Control level indicators are used to identify the 
point at which specified operations are to be performed. They may 
not be assigned to binary fields, or to input fields in chained 
or demand files. 


Control level indicators with higher numbers should be assigned 
to the more important fields, so that those fields will be 
processed first (see "Control Level Indicators" at the beriming 
of this s€ction). 


MATCH FIELDS (Columns 61-62) 


Entry Description 

Blank Sequence checking is not to be 
performed. 

M1—M9 Fields are to be matched and/or 


sequence checked. 


Sequence checking is automatically done for all record types with 
match field specifications. The contents of the fields to which 
Mi-~M9 have been assigned are checked for correct sequence. All 
match fields must be in the same order, either all ascending or 


all descending, and all files with match fields must be in the 
same sequence. | 
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If only one input or update file is used, an entry in columns 
61-62 causes sequence checking of the data in the field to which 
the entry has been assigned (see columns 15-16 for record tyre 
sequence checking). 


If an alternate collating sequence is defined for a prorran, 
alphanumeric fields are matched according to the sequence that 
was specified. Match fields contain a corresponding initial 
alternate collating sequence value; they are set to the lowest 
alternate Sequence value if ascending sequence is specified, and 
to the highest alternate sequence value if descending seouence is 
specified. 


As many as nine fields (M1-M9) may be used to sequence check. The 
sequence (ascending or descending) of the record file must be 
specified in the file description srecifications (see Section 3, 
column 18). 


If more than one input or update file is used, the M1—M° entry 
also causes records from the files to be compared and determines 
when they match. Whenever the contents of the match fields from 
records of the primary file are the same as the contents of the 
match fields from a secondary file, the matching record indicator 
(MR) turns on. M1—M9 are used only to identify fields by which 
records are matched, not as indicators; but they do cause MR to 
turn on when a match occurs. Matching is allowed with primary and 
secondary files only. It cannot be used with chained or demand 
files. 


The same number of match fields must be specified for all record 
types used in matching. If more than one match field is snecified 
for a record type, all the fields are combined and treated as one 
continuous match field. They are combined according to the 
ascending sequence of matching record values. Match fields may 
not be split; thus the same match field value cannot be used 
twice for one type of record. 


The same matching record values (M1~-M9) must be used for all 
types. Whenever more than one matching record value is used, all 
match fields must match before the MR indicator turns on. For 
example, if match fields M7, M&, and M9 are specified, a match on 
only the M7 and M8 fields will not turn on the MR indicator. 


Since field names are ignored in matching record operations, 
fields from different record types which have been assirned the 
same match level may have the same name. Record columns of 
different match fields may overlap, but the total length of all 
fields must not exceed 255 characters. 


Match fields may be either alphanumeric or numeric, however all 
match fields given the same matching record value (M1—-M9) are 
considered numeric if any of those matching fields is described 
as numeric. Numeric match fields contain only the digits 0-9 
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(matching fields of O68 and ¥68, where ¥ denotes blank, would 
compare equal). When numeric fields naving decimal positions are 
matched, they are treated as if they had no decimal position. 
Only the digit portions of numeric match fields are compared and 
signs are ignored. Even though a field is negative it is treated 
as a positive field, and the sign of the mmeric field is 
disregarded (a -8 will match with a +8). 
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Figure 6-10. Coding for Match Fields. 


FIELD RECORD RELATION INDICATOn (Columns 63~64) 


Entry Description 

Blank The field is associated with all the 
record types in a specified OR 
relationship. 

O1—99 The record identifying indicator 


relates a field to a record of a 
specific record type. 


Li~—L9 The control level indicator regulates 
the acceptance of data from a field 
if a control break occurs. 


MR | The matching record indicator regulates 
the acceptance of data from match | 
fields. : ee 
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U1-—U8 The external indicator conditions a 
field or a file. 


HO-H9 the halt indicator relates a field to 
a record in an OR relationship. 


The entry in columns 63-64 serves a variety of specific purposes 
which are governed by the type oi indicator specified. Its 
primary purpose is to relate the field named in columns 53—58 to 
a particular record type. Although each type of indicator must be 
handled on an individual basis, some general coding rules apply 
to all of then. 


All fields, including matcning and control fields, that require 
no field record relation indicator entry should 5e entered before 
those that do. 


All portions ofa Spt control fiela must be assigned the same 
field record indicator. All fields with the same field record 


reiation indicator, whether split or not, must be entered as a 
group in consecutive lines of the specifications sheet; thus 
memory storage is used to its fullest efficiency. The fields or 
field portions need not be entered in any particular order within 
the indicator groupings, however. 


Five kinds of ieee hs na aL) be entered in columns 63—64: record 
identifying indicators (01-99), control level indicators ce ; 
the matching record indicator (MR), external indicators (U1-UE&), 
and halt indicators (HO-H9). 


Record Identifving Indicators 


Record identifving indicators (01-9C) are used in columns 65-54, 
when several record types have een specified in an 
relationship. If all the record types ina file have the same 
fields, no field record relation indicator is required; but if 
record types in the OR relationship have a mixture of fields, 
with some that are the same and some that are not, a record 
identifying indicator is required to relate a field toa certain 
record. The indicator entered in columns 63-64 must be the same 
as the record identifying indicator found in columns 1920 of the 
record type on which the field is located. 


The 01-99 record identifying indicators can also be used as field 
record relation indicators to relate control fields and match 
fields entered_in columns 59-60 and 61-62 to a particular record 
type in an OR relationship. 01-99 may be assigned to just one 

metch field when two match fields have the same matching level 
ene: In this case only the specification with the field record 
relation indicator is used when that indicator is on. If none of 
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the field record relation indicators is on for the control or 
match field, the specification that has no field record relation 
indicator is used. Control fields and match fields cannot have an 
Li-L9 or MR entry in columns 63-64. 


Control Level Indicators 


Control level indicators (L1i-L9) may be used in columns 63-64 to 
cause the acceptance and use of data from a particular field only 
when a control break occurs. When the indicator turns on, data 
from the field named in columns 53—58 is accepted. 


Matching Recorc Indicator 


The matching record indicator (MR) may be used in the same way as 
control level indicators; data from a particular field is 
accepted and used only when match fields are encountered in 
columns 53-58. : 


External Indicators 


External indicators (U1-U8S) may be used to condition a 
specification. The external indicator is set prior to processing 
conditions to indicate whenever a field is to be used in the 
rogram. When the indicator is on, the field is read; when the 
indicator is off, the field is not read. Although they are most 
commonly used when file conditioning is to be done (see Section 
3, columns 71-72), external indicators may be used to condition 
when ae specification should or should not be done, if file 
conditioning is not specified, 


Halt Indicators 


Halt indicators (HO-H9) are used to relate a field to_a record in 
relationship when a t indicator is specified in columns 19-20, 


SECTION 6 PAGE 32 


FIELD INDICATORS (Columns 65-70) 


Field indicators are assigned to the field named in columns 53-58 
of the input record. Any indicator except LO can be used to test 
that field for a plus, minus, zero, or blank condition. If the 
condition is true, the indicator turns on; if the condition is 
not true, the indicator remains off. Halt indicators (HO-H9) may 
be assigned in these columns to test for an error condition in 
the data. 


The field indicators are actually used in the calculation 
specifications Section 7) and output-format specifications 
(Section 8); field indicators are specified in the input 
specifications only to condition operations. If indicators are 
being specified for this purpose, the programmer must know when 
they will be off and when they will be on. 


One input field may be assigned two or three field indicators, © 
but only the one which signals the result of the test turns on; 
the others are turned off, 


The status of a single field indicator assigned to fields in 
different record types is always based on the last record type 
selected. When different field indicators are assigned to fields 
in different record types, however, a field indicator turned on 
will remain on until another record of that type is read. 
Similarly, a field indicator assigned to more than one field 
within a single record type will always reflect the status of the 
last field defined. field indicators assigned in these columns 
may be SETON or SETOGr in calculation specifications. The three 
field indicators are described as separate entries below. 


PLUS (Columns 65-66) 


kntry Description 
Blank NO indicator is being used for this field. 
Any indica An indicator is being used. 


tor except LO 


Indicators are used to test a field for a plus condition. Any 
valid indicator entered except LO turns on if a field named in 
columns 53—58 is numeric and greater than zero. 


Indicators for the plus cormdition are off at the beginning of the 
program. They are not turned on until the plus condition is 
satisfied by the field being tested on the card just read. Halt 
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indicators specified in columns 65-66 cause the program to halt 

after the record which caused the indicator to turn on is 
completely processed. The data can then be checked for an error 
condition, such as zeros in the field when none should be there. 
In this case the zero field is found, the halt indicator turns 
on, the record with the zero field is processed, and processing 
stops so that the data can be corrected. 


MINUS (Columns 67-68) 


Entry Description 


Blank No indicator is being used for this field. 
Any indica-— An indicator is being used. 


tor except LO 


Indicators are used in columns 67-68 to test for a minus (not 
true) condition. Any valid indicator entered except LO turns on 
if afield named in cclumns 52—58 is numeric and less than zero, 
Indicators for the minus condition are off at the bezinning of 
the program and are not turned on until the minus condition is 
satisfied by the test field on the card just read. 


Halt indicators (HO-H9) can be specified in columns 67-68 to 


cause the program to halt so that an error condition in the data 
can be checked. 


ZERO OR BLANK (Columns 69-70) 


Entry _ Description 
Blank No indicator is being used for this field. 
Any indica— An indicator is being used. 


tor except LO 


Indicators assigned in columns 69-70 cause testing for a zero or 
blank condition. Any of the indicators entered except 1O turns on 
if a field named in columns 53-58 is all zeros and numeric, or if 
the field is alphanumeric and wholly composed of blanks, 
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An indicator assigned to test for zeros or blanks is off at the 
befinning of the program and remains off until the field being 
tested is zeros or blanks. A numeric field which is composed 
wholly of blanks will cause the zero indicator to turn on; 
however an alphanumeric field that is all zeros will not cause an 
indicator specified for all blanks to turn on. 


Halt indicators (HO~HS) can be used to test for error conditions 
in the data. . | 


PROGRAM IDENTIFICATION (Columns 75-30) 


Entry Description 
Any These columns may be used for programmer 
characters comments. 


The program identification entry of all cards following the 
control card may contain any characters, including blanks. The 
columns may be used for programmer comments, if desired. 
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SECTION 7. CALCULATION SPECIFICATIONS 


| Specifications are written on the Calculation Specification Sheet 
(Figure 7-1) to describe both the calculations to be performed on 
the data, and the order in which they are to be performed. 


Each calculation specification can usually be divided into three 
parts. The first part (columns 7-17) tells when the operation is 
to be performed, and under what conditions the operation 
specified is to be done; the second part (columns 28-32) 
indicates the kind of operation to be performed on the data 
specified in factor 1 (columns 18-27) and/or factor 2 (columns 
33-42); and the third part (columns 54-59) indicates the tests to 
be made on the results of the operation. The indicators entered 
here signal the result of the operation and may be used to 
condition other operations. 
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Figure 7-1. RPG II Calculation Specifications Sheet. 
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LIVERALS 


A literal is the actual data used in an operation, rather than a 
field name representing that data. Altnough a literal may be 
either alphanumeric or numeric, coding for an alphanumeric is 
different from the way in which a numeric literal is coded. 


Alphanumeric literals may contain any combination of eight 
or fewer characters, excluding the two enclosing 
apostrophes. An apostrophe which is included as part of the 
body of a tliteral is represented by two apostrophes, The 
literal “HARRY’S’ would be written as “HARRY’’S’, for 
example. Alphanumeric literals may not be used for 
arithmetic operations. 


Numeric literals (Figure 7-2) are used in the same way as 
numeric fields. Yfhey may contain any combination of the 
os gaia 0-9. A decimal point or sign may also be included 

bu blanks cannot appear in numeric literals, an 

apostrophes must not be used. The maximum total length of a 
numeric literal is ten characters, including an optional 
Sign and decimal point. If a sign is present, it must be the 
leftmost character. Unsigned numeric literals are treated as 
positive numbers. 
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OPERATION CODES 


.Use of RE II allows many different types of operations to be 
performed on data. Special codes which indicate the operation to 
be carried out must be used to specify the required operation. 
The codes are easy to work with, since they are usually an 
abbreviated form of the operation to be performed. 


Calculation operations are either internal or external. Internal 
calculation operations are performed in the computer within the 
processing of a single If program. Internal calculation 
operations fall into the following categories: 7 


Arithmetic Operations 

Move Operations 

Move Zone Operations 

Compare and Testing Operations 

Binary Field Operations 

Indicator Setting Operations 

Branching Operations 

Lookup Operations 

Subroutine Operations 

Input and Output Programmed Control Operations 


External calculation operations comprise those operations which 
are performed by a subroutine or program that has been compiled 
separately from the main RPG II program. They comprise the 
externél linkage operations and the debug operation. Valid 
operation codes are summarized in Appendix B, Table B4. 


ARITHMETIC OPEKATIONS 


Arithmetic operations can bey pert orcs only on numeric fields, 
arrays, array items, or literals. The result field must also be 
numeric. When arithmetic operations are used in which all three 
fields occur, the factor 1 and factor 2 fields (columns 18-27 and 
33-42) and the result field (columns 43-48) may all be different 
fields; they may all be the same field; factor 1 and factor 2 may 
be the same field but different from the result field; or either 
factor 1 or factor 2 may be the same as the result field. 


The lengti. of the result field mst be kept in mind when 
arithmetic operations are performed. When the result is aligned, 
decimal positions in excess of the number of decimal positions in 
the result field are dropped from the right side; integer digits 
in excess of the integer portion of the result field’s size are 
dropped from the left side. The results of all operations are 


SECTION 7 PAGE 4 


signed plus or minus (+ or —). Any data placed in the result 
field completely replaces the previous contents of the field. 


Arithmetic operations are performed through the use of codes for 
nine functions: add, zero ana add, subtract, zero and subtract, 
multiply, divide, move remainder, square root, and crossfoot. 


ADD (ADD) 


In the add function, factor 2 is added to factor 1 and the sum is 
placed in the result field. Factor 1 and factor 2 are not changed 
by the operation. 


ZERO AND ALD (Z=-ADD) 


In the zero and add function, the result field is first set to 
zeros, then factor 2 is added to the result field, The result 
field then contains factor 2 in the right positions, and zeros in 
the left positions not occupiea by factor 2c. Factor 1 is not used 
in the Z-ACD operation. 


SUETRACT (SUB) 


The subtract function causes factor 2 to be subtracted from 
factor and the difference to be placed in the result fieid. 


Factor 1 and factor 2 are not changed by the operation. 
Subtracting two fields which are the same is a method of setting 
the result field to zero. 


ZERO AND SUBTRACT (Z-SUB) 


In the zero and subtract function, the result field is first set 
to zeros, then factor 2 is subtracted from the result field and 
placed in the result field, so taat the complement of f ctor 2 
ends up in the result field. Factor 1 is not used. This operation 
can be used to change the sign of a field. 
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MULTIPLY (MULT) 


The multiply function causes factor 1 to be multiplied by factor 
2, and the product to be placed in the result field. Factor 1 and 
factor 2 are not changed. When a field described as the result 
field is used as a factor, the length of the result field must be. 
checked to be sure it is sufficient to hold the product. 


DIVIDE (DIV) 


In the divide function, factor 1 (dividend) is divided by factor 
2 (divisor) and the result (quotient) is placed in the result 
field. Factor 1 and factor 2 are not changed. If factor 1 is 
zero, the result of the divide operation will be zero, however 
factor 2 cannut be zero. Any remainder resulting from the divide 
operation is lost unless the move remainder operation (MVR) is 
specified as the next operation; if it is, the result of the 
divide operation cannot be halt-adjusted (rounded). 


MOVE REMAIiDER (MVR) 


The move remainder function moves tne remainder from the previous 
divide operation to a separate field named under the result field 
entry. The maximum length of the remainder is 15, including 
decimal positions. The number of significant decimal positions is 
the greater of either the number of decimal positions in factor 1 
of the previous divide operation, or the sum of the decimal 
positions in factor 2 and the result field of the previous divide 
operation. The maximum whole-number positions in the remainder 
are equal to the whole-number positions in factor 2 of the 
previous divide operation. This operation must immediately follow 
the divide operation and should be conditioned by the same 
indicators. Factor 1 and factor 2 must not be used with MVR. 


SQUARE ROOT (SQRT) 


The square root function derives the square root of the field 
named in factor 2 and places it in the result field. Factor 1 is 
not used. Factor 2 and the result field are numeric fields from 1 
to 15 digits long, including up to nine decimal places. For every 
digit to the left of the decimal place in the result field there 
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should be two digits to the left of the decimal place in factor 
2. For every digit to the right of the decimal place in the 
result field there should be two digits to the right of the 
decimal place in factor 2. A negative number causes a halt, thus 
factor 2 cannot be a negative number. When the SQRT operation is 
used, the result field length must be greater than or equal to 
the decimal positions entry. The result field (root) is 
automatically half~adjusted. A whole array can be used in a SQRT 
operation if factor 2 and the result field entry contain array 
names. In this case, the square root of each item of the array 
named in factor 2 is placed in the corresponding item of the 
array namec in the result field. 


CROSSFOOT (XFOOCT') 


The crossfoot function is used only on arrays with numeric items. 
It adds all the items of the array together and places the sum in 
the result field. The total can be half-adjusted in the result 
field. Factor 1 is not used; factor 2 contains the name of the 
array. Resulting indicators can be used. If the result field is 
an item of the same array used in factor 2, the value of that 
item before the XFOOT operation is used in arriving at a total. 


MOVE OPERATIONS 


Move operations move factor 2, or part of it, to the result 
field, but do not chanse factor 2 itself. Factor. 1 is not used in 
move operations. Kesulting indicators may not be assigned. Move 
operations can be used to change numeric fields to alphanumeric 
fields anc alphanumeric fields to numeric fields. To change a 
numeric field to an alphanumeric field, the name of the numeric 
field is placed in factor 2 and an alpharumeric result field is 
used. To change an alphanumeric ficld to a mumeric field, the 
process is reversed: the name of the elpnanumeric field is placed 
in factor 2 and a numeric result field is used. 


When data is moved into numeric fields by means of move 
operations, any decimal positions in the data are ignored. For 


example, if 1.72 is moved into a numeric field with one decimal 
position, the result is 17.2. 


Move operations can be used to perform two functions: move, which 
moves and right-adjusts the deta; and move left, which moves and 
left—adjusts the data. 
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MOVE (MOVE) 


The MOVE operation code causes characters from factor 2 to be 
moved to the rightmost positions in the result field. Moving 
starts with the rightmost character. If factor 2 is longer than 
the result field, the excess leftmost characters of factor 2 are 
not moved. If the result field is longer than factor 2, the 
characters in the result field that lie to the left of the data 
just moved in remain unchanged. 


Alphanumeric fields or constants may be changed into numeric 
fields by moving them into numeric fields. When this type of move 
occurs, the digit portion of each character is converted to its 
corresponding numeric character and then moved to the result 
field. Blanks are transferred as zeros, and the zone portion of 
the rightmost alphanumeric character is converted to a 
corresponding sign. The sign is then moved to the rightmost 
position of the numeric field, where it becomes the sign of that 
field. Conversely, numeric fields may be changed into 
alphanumeric fields by moving them into alphanumeric fields. When. 
this type of move is specified, all digits are transferred, 
including the digit and zone of the rightmost character. 


MOVE LEFT (MOVEL) 


When the move left operation is used, the characters from factor 
2 are moved to the leftmost positons in the result field, 
beginning with the leftmost character of factor 2. 


When MOVEL is specified to change an alphanumeric field or 
constant into a numeric field, the digit portion of each 
character is converted to its corresponding numeric character and 
then moved into the result field. Blanks are transferred as 
zeros. The zone of the rightmost character of factor 2 is used as 
the sign of the result field, whether or not the rightmost 
character is moved. 


When a numeric field is moved into an alphanumeric field, it is 
changed into an alphanumeric field. Digits are transferred left 
to right. The digit and zone portions of the rightmost character 
are converted to one byte each, if that character is to be moved. 
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If factor < is longer than the result field, the excess rightmost 
characters of factor 2 are not movec. Certain other conditions 
apply if factor 2 is longer than the result field: 


If botn fields are numeric, the sign from the rightmost 
position of factor 2 is moved over the rightmost digit of 
the result field. 


If both fields are alphanumeric, only the number of 
characters needed to fill the result field is moved. 


If factor 2 is numeric anc the result field is alphanumeric, 
the result field contains only digits after factor 2 is 
moved. 


If factor 2 is alphanumeric and tne result field is numeric, 
the zone from the rightnost character of factor 2 is moved 
to the sign position of the result field, and the remaining 
result field positions contain only digits. 


If the result field is longer than factor 2, the characters to 
the right of the data just moved in remein unchanged, and if a 
numeric field is used, its sign also stays the same. Two other 
conditions apply for the MOVEL operation if factor 2 is shorter 
than the result field: 


If the result field is numeric and factor < is either 
mumeric or alphenumeric, the digit portion of factor 2 
replaces the contents of the leftmost positions in the 
result field, and the sign in the rightmost position of the 
result field is not changed. 


If the result field is alphanumeric and factor 2 is either 
numeric or alphanumeric, the characters in factor 2 replace 
the equivalent number of leftmcest positions in the result 


field, and no can re is made in the zone of the rightmost 
position of the result field. 


When factor <¢ and the result field are the same length, the 
following conditions apply with MOVEL: 


If factor 2 and the result field are both numeric, the sign 
is moved with the rightmost digit of factor 2. 


If factor 2 and the result field are both alphanumeric, all 
the factor 2 characters are moved. 


If factor 2 is numeric anc the result field is alphanumeric, 
the factor 2 sign is moved with the rightmost Gigit. Only 
the digits in the other positions are moved. 
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If factor 2 is alphanumeric and the result field is numeric, 
the zone and digit portions of the rightmost digit of factor 
2 are moved. Zones in other positions are not moved. 


MOVE ZONE CPERATIONS 


Move zone operations are used to move only the zone portion of a 
cheracter. Four varieties of the move zone operation can be used: 
move high to high zone, move high to low zone, move low to low 
zone, end move low to high zone. 


In the following discussion the word high refers only to an 
alphanumeric field, and the word low refers to either an 
alphanumeric or a numeric fiela,. 


MOVE HIGH 40 HIGH ZONE (MHhzZO) 


The move high to hign zone operation moves the zone from the 
leftmost position of factor 2 to tne leftmost position of the 
result field. Botn factor < and the result field must be 
alphanumeric. 


MOVE HIGH TO LOW ZONE (MHLZO) 


This operation moves tne zone fron the leftmost position of 
factor: 2 to the rightmost position of the result field. Factor 2 
can be only alphanumeric, but the result field may be either 
alphanumeric or numeric. 


MOVE LOW TC LOW ZONE (MLLZC) 


MLLZO moves the zone from the rightmost position of factor 2 to 
the rightmost position of the result field. Factor 2 and the 
result field may both be either alphanumeric or numeric. 
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MOVE LOW TO HIGH ZONE (MLHZO) 


This operation moves the zone from the rightmost position of 
factor 2 to the leftmost position of the result field. Factor 2 
can be either numeric or aiphanumeric, but the result field must 
be alphanumeric. 


COMPARE AND TESTING OPERATIONS 


Compare and testing operations are used to test fields for 
certain conditions. No fields are changed Py these operations; 
instead the result of the test on the fields is shown by the 
resulting indicators assigned in columns 54-59. 


COMPARE (CCMP) 


The compare operation causes factor 1 to be compared with £0 tor 
2. The results of the comparison are shown by assigned indicators 
that are turned on or off. The nigh indicator is turned on if 
factor 1 is greater than factor 2; the low indicator if factor 1 
is less than factor 2; the equal indicator if factor 1 is equal 
to factor <z. 


The compare operation cannot be used with entire arrays, and 
factors 1 and 2 cannot be compared unless both are either 
alphanumeric or_numeric. If the fields are alphanumeric, they are 
automatically aligned to their leftmost character before they are 
compared. If one factor is shorter, its unused positions are 
automatically filied with blanks. 


If the fields to be compared are numeric, they are automatically 
aligned according to the decimal point, and any missing digits 
are filled in with zeros. The maximum length for numeric fields 
to be compared is 15 digits. 


If an alternate collating sequence is defined in the 
specifications, alphanumeric fields are compared according to 
that sequence. 
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TEST ZONE (TESTZ) 


This operation is usec on alphanumeric result fields to test the 
zone of the leftmost character (see Section 6, "Character 
Structure"). ‘The test determines whether the zone is positive 
(+), negative (—), or blank. Resulting indicators are assigned to 
show the results of the test. The plus indicator is turned on by 
the zone portion of the characters & and A-I, while tne minus 
indicator is turned on by the zone portion of the characters 
(right brace), - (minus), and J—R. Ail other characters turn on 
the blank indicator. 


The TESIZ operation cannot be used on numeric result fields, nor 
does the operation use factor 1 and factor 2. 


BINARY FIELD OPERATIONS 


Three binary Yield operation codes are proviaed to set and test 
individual bits used as switches ina program. The codes are 
BITTON, BIVOr, and TESTE; tney are entered in columns 23-32. when 
oneé of these codes is used, iactor 2 can contain either a field 
name, or one tc eight bit specifications. 


One or more bits per operation, up to a@ maximum.of eignt, may be 
set on, set ofi, or tested. Bits may ve specified in a tera by 
numbering tnem O-7, fron left to right, ana enclosing taem in 
apostrophes. ‘ney neea not be specified in any order. io specily 
bits 1, 4, 6, and 7, tor example, °1467° would be entered in 
columns 33-56 of factor 2. bits whicn are not specifiea in factor 
2 are not changed. 


bits may also be specitisa usin, the name of a one-position 
alphanumeric field name or table or array item. In this case, the 
bits which are on in tne field or array item are turned on, 
turned off, or tested in the result field, and bits which are not 
on are not affected. 


SET BIT ON (BITON) 


the use of the BITON operation code in columns 26-42 causes the 
bits identified in factor 2 tc turn on in the field named in the 
result field entry. Conditioning indicators can be used in 
columns 7-i7. Any entry uncer field length must be 1. 
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The factor 1, decimal positions, half-adjust, and resulting 
indicators entries are not used with the BITON operation. 


SET BIT OFF (BITOF) 


The use of the BITOF operation code in columns 28-31 causes bits 
identified in factor 2 to turn off in a field named as the result 
field. All other specifications are the same as those for the 
BITON operation. 


TEST BIT (TESTE) 


Use of the TESTB operation code causes bits identified in factor 
2 to be tested for an on or off condition in the field named as 
the result field, and the condition of the bits to be shown by 
resulting indicators in columns 54-59. All other specifications 
are the same as those for LITOwn and BILOF. 


AS many as three resulting indicators can be named for one TESTB 
operation, but at least one must be used. Although two indicators 
may be the same for one TESTB operation, three cannot. If factor 
2 contains bits which are all off, no resulting indicators are 
turned on. 


Resulting indicators have cifferent meanings for different 
columns. 


An indicator in columns 54-55 is turned on if each bit 
specitied in factor 2 is off in tne result field. 


An indicator in columns 56-57 is turned on if two or more 
bits were tested and some bits were found to be on and 
others off. The field named in factor 2 must contain more 
than one bit which is on if an indicator appears in columns 
56-57. 


An indicator in columns 55-59 is turned _on if each bit 
specified in factor 2 is on in the result field. 
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INDICATOR ©ETTING OPERATIONS 


Indicator setting operation codes are usea to turn indicators in 
columns 54-59 on or off. ‘he headings shown in the resulting 
indicators field (plus, minus, zero, etc.) do not apply in 
indicator setting operations. Lhe two indicator setting 
operations which can be used ere SETON and SHLOF. Whenever a new 
record is read, record identifying indicators (01-99) and field 
indicators aré set to reflect conditions on the new record. The 
oe from any previous STON or S#TOF operation does not apply 
ene 


Indicators Li-L9 and the recorce identiiying incicators are always 
turned off after detail output operations are completed, 
regardless of the previous SLTON or ETO] operation, Setting on 
or setting off a control ievel indicetor (L1I-L¢9) does not 
automatically set on tie lower control level indicators. 


SEI ON (SE. ON) 


the SETON operation code ceuses indicators entered in columns 
54-59 to be turned on. An) indicator tay be turnea cn by the 
SELON operétion. 


If the LR indicator is turnec cn by a caiCh operation corncitioned 
with e contrcl level indicator (columns 7-8), processing stops 
after all total output operations are finished. If it is turned 
on by a SEICN operation not so corditionea, processing stops 
after the next total output opératicn is completed. 


If halt indicators (HO-HS) are sét on anc not turned offi before 
the detalii output operations are complete, the system types a 
message On the console indicating which halt indicetor is on. ‘ne 
operator may then either continue tne job or terminate it. 


SEL OFL (SETOF) 


This operétion céuses indicators in columns 54-59 tc be turned 
off. Any indicator may be turned off by the SETOF operatior. 
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NUMERIC INDICATORS 


Numeric indicators (01-99) may be used in a variety of ways to 
fulfill a number of purposes. During the input cycle they may be 
used as field record relation indicators, as record identifyin 
indicators, or as field indicators. Specifying them as fiel 
record relation indicators causes them to be tested; specifying 
them as record identifying indicators causes them to be turned on 
or off. It is important to remember that if an input field is 
specified again as an output field with e blank after entry 
(column 3¢ of the output sheet), e zero or blank field indicator 
specified on the input field will turn on as soon as that field 
is blanked, anc will affect calculation and output specifications 
with which it is used. 


During the calculations cycle, numeric indicators 01-99 may be 
usead either es operation indicators or as resulting indicators. 
Specified as operation indicators, they determine whether or not 
an operation is to be performec; as resulting indicators they are 
turned on or off. 


During the output cycle, O1-99 may be specified as output 
indicators to condition output fields. 


HALT INDICATORS 


Halt indicators (HO-HG) are turned on and off in the same manner 
as numeric indicators, with two exceptions: 


Helt indicators are tested at the end of each detail cycle, 
and nds any e on & message is typed to the operator (see 
Appendix G, "Error Messag s0ye the operator indicates 
that the job is to be continued, the indicator is turned 
off. 


If halt indicators are on at tne end of the detail cycle, 
the job is halted and processing stops. 


OVERFLOW INDICATORS 


One overflow indicator (OA-CG, OV) is assigned to each printed 
output file in the file description specifications. The overflow 
indicator may Le turned on or cif when it is specified as a field 
indicator on input or as a result indicator for calculations; or 
it may be tested when it is specified as an operation indicator 
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for calculations or as a conditioning indicator for output. 
Although overflow indicators cannot comition exception lines, 
they may condition fields within the exception record. 


An overflow indicator is turned on when spacing goes past an 
overflow line, but not when the overflow line is skipped. A skip 
to a new page from a line not conditioned by an overflow 
indicator causes the indicator to be turned off. 


CONTROL LEVEL INDICATORS 


Control level indicators (L1—L9) are used to indicate a change in 
a control field. RPG turns them on when a change is encountered 
in the value of the control field of a subsequent record. They 
are turned off at the end of the detail cycle following the 
control field change. Control level indicators may also be turned 
on or off by calculations. 


When RPG turns on a control level indicator, all lower level 
control indicators are turned on as well; however a control level 
indicator turned on or off as a record, field, or resulting 
cme does not turn the lower level control indicators on or 
off. 


EXTERNAL INDICATORS 


External indicators (U1-U8) are used on file description 
specifications to.condition a Ct They may also. be used as field 
record relation indicators (input Lpecifications); operation 
indicators (calculation specifications), or condi tioning 


indicators (output specifications). 


External indicators provide a means of passing yes or no 
information from Control Language Statements (Appendix F) toa 
program and from one program to the next. They may be turned on 
or off with the CLS parameter card (//PAR, Appendix F), or by 
being specified as field indicators. The status of external 
indicators remains unchanged from the end of one job step to the 
beginning of the next job step. 
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FIRST PAGE INDICATOR 


The first page indicator (iP) is used to produce heading and 
detail lines on the first page of output. It is turned on by RPG 
at the beginning of the first Se abe cycle, before any input 
records are read, and turned off by RPG just before the first 
detail record is read. It is also turned on when specified as a 
field indicator in the input specifications. 


The 1F indicator may be used as an operation indicator, but will 
remain off the first time through the program cycle unless it is 
intentionally set on. 


BRANCHING CPERATIONS 


Branching operations allow operations to be performed ina 
different order than is specified on the Calculation 
Specifications Sheet. Ilhey can be used to cause several 
operations to be performed over and over again; to cause certain 
operations to be pertormed for certain recorc types and not for 
others; or to cause several operations to be skipped when certain 
conditions occur. 


Iwo operation codes can be used: GCLO, and TAG. 


GO TO (GOTC ) 


The GO1O operation code allows instructions to be skipped if some 
other instruction is specified to which the yi cere is to go (see 
TAG). The skip may be to an earlier line or to a later 
specification line, but it cannot be from a calculation within a 
subroutine to a calculation outside of that subroutine, or vice 
versa. 


A skip can be made from a calculation that is conditioned by a 
control level indicator (columns 7-3) to one that is not, however 
the programmer should be familiar with the RPG program logic 
before he uses this feature. 


If there is no entry in columns 7-8 of a GOTO line, but the 
associated TAC line contains a control level indicator (I0-L9), 
the program skips from the point of the GOTO line in detail 
calculations to the point followin: the ‘TAG line in total 
calculations, and no detail output occurs. Data from the record 


SECTION 7 PAGE 17 


being processed remains available; data from the next record is 
not trensferred to the input work area. The same input fields are 
repeatedl1 transferred to the RPG-assigned locations before 
detail ca culations are performed. 


Total calculations following the TAG line are once agpin 
sequentially executed, subject to the status of conditioning 
indicators in columns ‘7-17; total output again occurs, unless 
another GCTO instruction causes it to be bypassed; overflow 
output is processed if OA, OF, or QW is on; and detail 
calculations are again performed. 


Several events take place during detail caiculations preceding 
the GCTO operetion. If field indicators or the MR indicator were 
turned on or off, they are reset aiter each total output to the 
setting they had immediately before original detail caicuiations 
for the current recora. If OAOF, or CV wes turned on or orf, it 
is reset before overflow outjut to its status at the end of the 
preceding total output. 1t is turned on, however, if it was off 
at the end of the preceding output and a carriage—tape channel i2 
punch is encountered during one oi the repeatea total output 
times. Once it has been turned on by channel 12, it is not turned 
off again until the next detail output has been completed. LO-LY 
or record type indicators turned on or off by the SETON or SETOF 
operation or as resulting indicators retain their status. 


Factor 2 must contain the name of the point to which the 
operation is to go. Factor 1 and the result field are not used in 
the GOTO operation. GOTO may be conditioned by any indicators. If 
it is not conditioned, the operation is always executec. 


TAC (TAG) 


The TAG operetion code defines tne point to which a skip is 
specified in the GOTO operation. The name must begin in column 18 
of factor 1. The same name may not be usec for more than one TAG 
instruction, and it cannot be tne name of a field used in the 
progran. 


actor 2 and the result field are not used in the TAG operation, 
ana no indicators may be entered in columns “17. Control level 
indicators may be used, however, if a skip is to be made at total 
tine. 
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LOOKUP_OPERATICNS 


Lookup operations are used when a table or array is searched for 
a special item. The lookup operation can be used to search a 
Single takle, to search an array, or to search using two related 
tables. Only one code is required for lookup operations: LOKUP. 


LOOKUP (LOKUP) 


The LOKUP operation code causes a search to be made fora 
particular item in a table or array named in factor 2, Factor 1 
contains the search word for which a match is to be found in the 
table or array named. The search word may be an alphanumeric or 
numeric constant, an array item, a field name, or a table name. 
The search word must be the same length and contain the same 
format (alphanumeric or numeric) as the table or array item, but 
need not have the same alignment. 


When e@ table is named in factor 1 for a LOKUP operation, the 
specification is not for the whole table, but rather for the item 
last selected from the table. 


ASSIGNING INDICATORS 


Resulting indicators are always used in connection with LOKUP, 
first to_indiceate the type of search cesired, and then to reflect 
the result of the search. In all cases the resulting indicator is 
turned on cnly if the search is successful. 


An indicator assigned to LOW (columns 56-57) instructs the 
program to locate an entry in the table that is nearest to the 
seerch word, yet lower in sequence than the word. The first 
higher entry found causes the indicator assigned to HIGH to turn 
on. 


A resulting indicator assigned to KJUAL (columns 56-59) instructs 
the program to search for a table or array item equal to the 
search word. The indicator turns on only if such an item is 
found. If severel items are identical to the search word, the 
program selects the first one it encounters. 


At least one resulting indicator must be assigned for a LOKUP 
operation, but no more than two can be used. Resulting indicators 
snould not be assigned to botli HIGH and LOW, since the indicator 
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assigned to LOW will be ignored, but indicators can be assigned 
to EQUAL and HIGH, or to EQUAL and LOW. The program then searches 
for an entry that satisfies either condition, but checks for an 
EQUAL item first. If ° no EQUAL entry can be found, tne nearest 
item lower or higher in sequence is selected. 


A search may be made on HIGH, on LOW, on HIGH and KQUAL, or on 
LOW and EQUAL only if the table or array is in sequence. No 
resulting indicator is turned on if the entry searched for is not 
found. (See Appendix B, Tables 62 and 653, for indicator 
summaries.) 


SEARCHING A SINGLE TABLE 


When a Single table is searched, factor 1, factor Z, and at least 
one resulting indicator must be specified. Conditioning 
indicators may also be specified in colunns 7-17. iesulting 
indicators are always set on to refiect a successful result of 
the search, and off if the search was unsuccessful. 


Every time a table item is found that setisfies the type of 
search being made (EQUAL, HIGH, LoW), a copy of that table item 
is plecec in & special sturage area and the previous contents of 
the storage area are destroyec. If the search is not successful, 
the storage area remains untouched. 


SEARCHING WITH TWO TABLES INVOLVED 


When two related tables are used in a search, only one is 
actually searched. When the search conditior. (HIGH, LOw, QUAL) 
is satisfied, the corresponding data items from both tables are 
made available for use. ‘the two tables involved should be the 
same length. If the table that is searched is longer tian its 
relatec tairle, the search stops at tne end of the shorter table. 


Factor 1 must be named as the searcn word and factor < must name 
the teble to be searched. ‘tne result field must name the related 
table from which data is to be made available for use. nesulting 
indicators must also be used. Conditioning indicators may be 
specified in columns ‘/-17/ if they are needed. 
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RELERENCING FOUND TABLE ITEMS 


Whenever a table name is used in an operation other than IOKUP, 
the table name does not refer to the table itself, but to the 
data item placed in the special storage area as a result of the 
last successful search. This allows data items from a table in 
calculation operations to be used. 


The teble may also be used as the result field in operations 
other than the LOKUP operation, so that the contents of the table 
can be modified by calculation operations. In this case the 
contents of the special storage area are changed by the 
calculation operation, and the corresponding table item in the 
table itself is also changed. 


If a table is named in factor 1 ina _LOKUP operation, the 
contents of the special storage area are used as the search word. 


In this way 4 data item from a table can itself become a search 
word. 


SEARCHING AN ARRAY 


LOKUP operaticns are specified for arrays in the same way as for 
tables except that the result field cannot be used if factor 2 
names an array. If just the array name is used in referencing the 
array, the search begins at the first item in the array. 
Indicators must be used to determine if a match was founc. The 
indicators reflect only that the desired item is in the array; 
the programmer does not have ready access to a found item. 


The array name may be used with an index consisting of e field 
name or itera]. If an index 1s usec, the search bégins at the 
item identified by the index. If a match is found, the number of 
the array item containing the match is placed in the field used 
as the index. If no match is found, the index field is set to 1. 


If a literal is used as an index, indicators must be designated 
to determine if a match wes found. The content of the item 
referenced by the literal is not changed. 


SEARCHING AT A SPECIFIED ARRAY ITEM LOCATION 


To save processing time it is possible to start the LOKUP search 
at a particular item in an array. The search starts at the 
specified item and continues until the desired item is found or 
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until the end of the array is reached. This type of search is 
indicated Ly additional entries in columns 33-42. The name of the 
array to searched is entered in these columns, followed by a 
comma and cither a numeric literal or the name of a numeric field 
with no decimal positions. The numeric literal or field shows the 
number of the item at which the search is to start; it is termed 
an index because it points to a certain item in the array. All 
other colunns are used in the same way as they are for the normal 
lookup operation. 


When ean index field is used, an unsuccessful search causes that 
field to contain the value of one. If an array item is found 
which satisfies the conditions of the LOKUP operation, however, 
the number of the item, counting from the first item in the 
array, is placed in the index field. A numeric literal used as an 
index is not changed to reflect the result of the search. 


SUEROUTINE OPERATIONS 


The subroutine operation codes are usea only for subroutines that 
are parts of other main routines. The subroutines are coded in 
specification lines on the calculation sheet following ail detail 
and total calculation operations. iwen though they are specified 
last on the calculation sneet, they may be performed at any point 
in the calculation operations. Each Subroutine must have a name 
entered in factor 1, and tne operation code BEGSR entered on the 
same line. The subroutine name can be 1-6 characters iong and 
must begin with an alpnabetic character in column 18. The 
remaining characters can be any combination of alphabetic or 
numeric characters, but may not contain special characters. 
Blanks may not appear between characters in the name, and no two 
subroutines used in the same program may nave the same name. 


Except for AN and Ok lines, each specification line within the 
subroutine must have SR in columns 7-8 to identify it asa 
subroutine line. 


All possible RPG II operations may be performed within a 
subroutine. The operations mey oe concitioned by any valid 
indicator in columns ©17. ndividual operations within a 
subroutine cannot be conditioned by a control level indicator in 
columns 7-6, however, Since Sit must appear in those columns. 


Fields used in the subroutine may be defined either inside or 
outside the subroutine. In either case the fields can be used by 
both the main routine and the subroutine. 


A subroutine cannot be written witnin a subroutine. Althougn it 
may cell another subroutine, a subroutine cannot call itself or 
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the subroutine which callea it. When GOTO is used in a 
subroutine, branching outside to a statement in enother 
subroutine Or branching from outside the Subroutine to a 
statement within the subroutine causes an error condition. A skip 
can be made only from one statement within a subroutine to 
another statement within the same subroutine. 


Three operation codes are used in defining a Subroutine: BEGSkR, 
ENDSR, and EXSH. 


BEGIN SUBROUTINE (BEGSR) 


This operation code is coded as the first statement of a 
subroutine and serves as its beginning point. Factor 1 must 
contain the name of the subroutine. 


END SUBROULINE (ENDSR) 


ENDSR serves as the last statement of the subroutine to define 
the end of the subroutine. Factor 1 may contain a name which then 
indicates &@ point to which a skip can be made by a GOTO statement 
within the suLroutine. The #NLSR operation encing the subroutine 
automatically causes a branch back to the next statement after 
the EXSR operation. 


EXECUTE SUBROUTINE (EXSm) 


This operation causes a skip to be made to the beginning of a 
subroutine. Factor 2 must contain tne name of the subroutine that 
is to be executed, and the same name must appear on a BEGSR 
instruction. EXSR may appear enywhere in the program to indicate 
that the subroutine is being called. Whenever EXSR appears, the 
Subroutine is automatically executed. EXSK may be conditioned by 
indicators to cause the subroutine to be executed only at the 
time when all specified conditions are satisfied. Any valid 
indicators may be used in columns 7-17. If no indicators are 
used, the subroutine is always executec when EXSR is encountered, 
Entire subroutines can be conditioned by contral level indicators 
when the control level indicator is used with the EXSR operation. 
After all operations in the subroutine are done, the operation in 
the line following the EXSK specification is performed. 
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INPUT AND CUTPUT PROGRAMMED CONTROL OPERATIONS 


In the normal RPG II processing cycle, a record is read, 
calculations are performed, and records are written. This cycle 
can be altered, however, to allow input and output operations to 
be executed during calculations. Five operations can be used to 
alter the cycle: exception, force, display, read, and chain. 


EXCEPTION (EXCPT) 


This operation allows records to be written at the time 
calculations are being done. It is used primarily when the number 
of similar or identical records (either detail or total) to be 
written in one program cycle is variable rather than exact. 


When the exception operation is used, ELXCPl is entered in columns 
26-32. Columns 7-17 mey have entries, but all. other columns must 
be blank. The line or lines to be written out during calculation 
time are indicated by an FE in column 15 of the Output—Format 
Specifications Sheet. 


FORCE (FORCE) 


FORCE statements are used with primary or secondary input or 
update files to enable selection or the file from which the next 
record is to be taken for processing. Jlactor 2 ina FORCE 
statement identifies the file trom which the next record is to be 
selected. If the statement is executed, the record is selected at 
the start of the next Been cycle. If two or more FORCE 
statements are executed uring the same program cycle, all but 
the last one are ignored. 


Although the first record to be processed is always selected by 
the normal method, #ORCE staterents override nultifile processing 
selection for the remaining records. When end-of-—file is 
encounterea on a forced file, a record is not retrieved from the 
file; instead the method of selection reverts to multiprocessing 
ana the record to be processed is selected by normal methods. 
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DISPLAY (DSPLY) 


The display operation allows either or both of two events to 
occur: 


A field, table element, array element, or literal up to 120 
characters long can be printed on the console without a 
program halt during program execution. 


A field, table element, or array element up to 120 
cheracters long can be printed on the console with a program 
halt to allow that field to be changed. Literals may not be 
changed with the DSPLY operation code. 


When the DISPLAY operation is used, factor 1 holds the field to 
be displayed; factor 2 gives the filename of the console; and the 
result field contains the field to be changed. Both factor 1 and 
the result field are optional; however, either one or the other 
must be used. 1f desired, both may be used. 


shen data is entered during program execution, alphanumeric 
fields are left-justified after all characters are keyec, and 
numeric fields are right—justified after all characters are 
keyed. Leading zeros are not required for numeric data. After tne 
data is entered the ENDL key must be depressed if the data is 
correct, or the CANCEL key if data is to be re-entered. If no 
characters are entered or the space bar is not depressed, the 
result field is not changed. Alphanumeric fields entered during 
program execution are blanked out; numeric fields are zeroed cut 
before the actual input field is moved in. 


READ (READ) 


The READ operation is used to call for deménd file information to 
be input during the calculations in tne program cycle. This 
operation differs from tne FORCH operation in that FORCE 
specifies input on the next program cycle rather than the present 
one. When the program is reading from several demand files during 
the same RPG II cycle, record identifying indicators assigned to 
the demand files remain on throughout the cycle if the previous 
READ operations were executed successfully. 


The READ operation code must appear in columns 28-32. Factor 2 
must contain the name of the file from which a record will 
immediately be read. An indicator should be specified in columns 
58-59 to turn on after each READ operation if an. end—of—file 
condition is reached. When columns 53-59 (resulting indicators) 
are blank, a halt condition occurs on an end—of-—file cordition 
and on subsequent KiAD operations after the end—of-—file condition 
is reached. Indicators may be specified in columns 7-17. 
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The READ operation is Similar to the CHAIN operation, except that 
the READ file is processed sequentially and the CHAIN file is 
processed randomly. Demand files can be processed only by the 
READ operation; CHAIN cannot be used. When the READ operation is 
used for demand files, the MR indicator cannot be entered in 
columns 63-64 on the input sheet. Numeric sequence testing on the 
input sheet is not allowed for demand files, nor are control 
levels, match fields, and look-ahead fields. When a demand file 
is conditioned by a U1-U&S indicator which is not on, no records 
are read from that file and the end-of—file indicator in columns 
55-59 does not turn on. 


The following files can appear as factor 2 in a READ operation, 
provided they are designated as demand files by. a D in column 16 
of the file description sheet: 7 


sequential files processed consecutively and specified as 
input or update files in column 15 of the file description 
sheet. 


Indexed disc files processed sequentially by key and 
specified as input or update files. 


Indexed disc files processed sequentially within limits and 
specified as input or updéte files. 


CHAIN (CHAN) 


The CHAIN operation causes a record to be read from a disc file 
during calculations. One record is allowed to be read in when the 
operation code CHAIN appears in columns 2-32 of the calculation 
sheet. Indicators may be used in columns 7-17, but the result 
field, field length, décimal position, and half-~adjust (columns 
43-53) entries must be blank. File’ conditioning indicators 
(U1~U8) can be used to condition a cheined file, and columns 
54-55 should contain a resulting indicator entry. If the record 
is not found, the indicator specified in these columns will turn 
on. If an indicator is not specified in columns 54—55 and the 
record is not found, the program will have a halt condition. No 
output is permitted to a chained update file when the specified 
record is not found. Columns 56-59 must always be blank for chain 
Operations. 


The chain operation is used for two purposes: random processing 
of an indexed or direct file; and direct file loading. 


In random processing, a record must be identified by a relative 
record number before it can be read froma direct file, or by a 
record key before it can be read from an indexed file. The 
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relative record number or record key can be contained in a field 
specified for that purpose. In the chain operation, the operation 
code CHAIN is required in columns 20-32 of the calculation sheet. 
Factor 1 entries must be a relative record number or key. 
Relative record numbers must be numeric. Factor 2 must contain 
the name of the file from which the record will be read. This 
file is then the file that is chained to, or the chained file. 


A direct file is created for direct file loading when it is 
defined as a chained output file on the file description sheet. 
Factor 1 in the calculation specifications must then contain a 
relative record number, columns 28-32 must contain the operation 
code CHAIN, and factor 2 must contain the name of the direct disc 
file to be loaded. Relative record numbers define the record 
position for each record in the direct disc file. The relative 
number can be all or part of a field in input records, or can be 
generated by the RPG II program. After the disc file is loaded, 
the relative record numbers are used for record identification of 
the disc records. 


When a direct file is loaded as a chained output file, the system 
blanks out the disc space required for the direct file before it 
is loaded. The relative record number is used to chain to the 
corresponding relative record position in the disc file. The 
information in the file then replaces’ the blanks when it is 
written on disc. If a record is not loaded, the space reserved 
for that record in the disc file remains blank until the proper 
record is loaded at a later time. 


Once the direct file is loaded, records. can be inserted or 
changed in the file by defining the direct file as an updates file. 
processed either consecutively or by the chain operation. 


Inserting records in direct disc files is a very different 
process from record addition to sequential or indexed files. A 
new co i ed sequential dj file i j 
Weeition, available Gi the end et the file) the aces orceees 
occurs for an indexed file, except that the record key and disc 
address are added to the file index. Space is already reserved 
for any new records inserted ina direct disc file, hence the 
record is inserted in its proper place rather than added to the 
physical end of the file. 


EXTERNAL LINKAGE OPERATIONS 


External linkage operations permit interface between the main RPG 
II program, which performs internal calculations, and external 
subroutines and user programs. (See Appendix E for a detailed 
explanation of subroutine linkage.) Codes are provided for three 
external linkage operations: exit to a subroutine, RPG II label, 
and user’s label. 
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EXIT TO A SUBROUTINE (EXIT) 


The EXIT operation code allows the programmer to transfer control 
from the RPG II program to a_ user subroutine whose name is 
contained in factor 2. The name of the subroutine cannot be 
greater than six alphanumeric characters; the first character 
must be alphabetic. fkactor 7 and the result field are not used 
with the EXIT operation. 


Normal linkage uses register 6 for the parameter list pointer, 
but no parameter list is associated with the LxIT operation. When 
the EXIT operation is used in calculations, it links to a user 
subroutine with a register usage conversion which sets the save 
area address in register 7. The user must save any registers he 
uses in the save area pointed to by that register. 


The save area format is as follows: 


Words Contents 

1 Return address. 

2 Previous save area address (always zero). 
3 Status word (zero). 

4—11- Register save area. 


RPG II LABEL (KLABL) 


RIABL allows a_ subroutine external to the RPG II program to 
reference 2 field in the RPG II program. The name of the field to 
be referenced is entered in the result field. It must be a valid 
numeric or alphanumeric field, an indicator, or a table, and may 
be from one to six alphanumeric characters long. The first 
character must be alphabetic. 


The field length and decimel positions must be defined in the 
result field of an RLAEL entry unless they are defined by a 
preceding entry in either the input or the calculation 
specifications. If UDATE, UMONTH, UDAY, or UYEAR is used in the 
result field of an RLAEL operation, the field length or number of 
decimal positions need not be specified; however if they are 
specified, UDATE must have a field length of six with zero 
decimal positions, and the others must have a field length of two 
with zero decimal positions. Indicators, factor 1, and factor 2 
are not used. lo specify an indicator, the first three characters 
must be IND, followed by the two-character indicator; e.g., 
INDO2, INDL1. 
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USER’S LAEIL (ULABL) 


The user’s label operation enables the RPG II program to 
reference a field contained in a user subroutine whose name is 
entered in the result field. The name may be from one to six 
alphanumeric characters long; the first character must be 
alphabetic. The field length and decimal positions must be 
defined. Indicators, factor 1, and factor 2 are not used. A ULABL 
field can be specified on the calculation or output-format sheet, 
but cannot be specified on input sheets. 


DEBUG OPERATIONS 


The debug operation is an RPG II function used to locate errors 
in a program which is not working properly. The operation causes 
one or more records to be written which contain information 
helpful in finding programming errors, and is coded with the word 
DEBUG. The operation code produces results only if a 1 hes been 
entered in column 15 of the control card specifications. If the 
control card entry has not been made, the operation code DEBUG is 
treated as & comment. Because additional processing 
considerations are involved, care must be exercised in writing 
debug records to a direct or indexed file. 


In specifying the DEBUG code, use of factor 1 is optional. If it 
is used, it may contain a literal or field name which identifies 
the perticular debug operation; this iiteral or the value of the 
field named is then written on record 1. Factor 2 must contain 
the name of the output file on which the records are written, The 
same output file name must appear in factor 2 for all DEBUG 
statements ina program. The result field may be a field, a2 table 
item, an array item, or a whole array whose contents are to be 
written on record 2. Any valid indicators may be used in columns 
7-17. Columns 49-59 (length of result field, decimal positions, 
half-adjust, and resulting indicators) must be left blank. 


The DEBUG operation code may be placed at any point or at several 
points in the calculation operations. Record 1 is required, and 
is written whenever it is encountered, but record 2 is written 
only if a specification has been entered for it. Record 1 
contains a list of all indicators which are on at the time the 
DEBUG code was encountered. Record 2 shows the contents of any 
one field. 
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SPECIFYING RECORD 1 


peaches 1, which is always written, is specified in the following 
ormat ; 


Positions Entry 
2-7 DisBUG. 
8 Blank. 
9-16 | The constant entered in factor 1 


or the statement number of the 
DEBUG operation code in the 


program. 

17 Blank. 

15~31 The words INDICATORS ON. 

3e-any position, The names of all indicators which 
depending on the are on, each separated by a blank. 
number of indica-— ‘he word wONi is entered if no 
tors on indicators are on. hore than one 


record may be needed. 


SPECIFYING RECORD 2 


Record 2 is optional and neec be specified only when there is a 
result field. The record is written in the following format: 


Positions Entry 
2-12 The words FIELE VALUE or TABLE 

| VALUE or ARRAY VALUE. 
15-any position, The contents of the result field or 
depending on array (up to 255 characters per item). 
field length More than one record may be needed. 


When the result field is written in record 2, a blank is used to 
separate each array element. when applicable, a negative sign is 
written following an array item, table item, or field. When the 
result field cannot be contained ina record, a continuation 
begins in position two of the following record. When one or more 
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array items can be written on a single record, but the next item 
cannot be entirely contained on the record, the next item is 
written in position two of the next record. 


CODING INSiRUCTIONS 


Detailed instructions for coding the calculation entries on the 
specifications sheets are defined below. | | 


PAGE NUMBER (Columns 1-2) 


Entry Description 
01—99 Specifications sheets ere numbered 
sequentially. 


More than one of each type of specifications sheet may be used in 
the course of coding the source program. To keep the sheets in 
the proper sequence, the coded Calculation Specifications Sheets 
must be grouped according to their type and arranged with the 
other specifications sheets in the following order: 


Contrcl Card and File Description 
Extension and Line Coumter 

Input 

Calculation 

Output—Format 


The specifications sneets should then be numbered in ascending 
sequence. 


LINE NUMBER (Columns 3-5) 


Entry Description 
Any number Line numbers are assigned in 


ascending sequence. 
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Line numbers are preprinted in columns 3—4 of the specifications 
sheet for the programmer’s convenience. The unnumbered lines 
below the preprinted numbers can be used for additional lines or 
to insert a line between completed lines. Column 5 can also be 
used to this end. The line numbers assigned need not be 
consecutive, but they must be in ascending order. 


TYPE OF FORM (Column 6) 


Entry Description 
C C identifies the calculation 


specifications to the compiler. 


CONTROL LEVEL (Columns 7-8) 


Entry Description 
Blank The calculation operation is not part of 


a subroutine and may be performed only 
for detail calculations. 


Lo, The calculation operation is done when 
L1—L9 the appropriate control break occurs 
or an indicator is set on (IO is always 
on). 
Lk The calculation operation is done after 


the last record has been processed or 
after the LR indicator has been turned on 
by a SETON operation. | 


Sk The calculation operation is part of a 
subroutine. 
AN, OR An AN or Oh relationship is being 


established between lines of indicators. 


The type of calculations to be performed must be specified in the 
following order: detail (blank), total (LO, L1-L9, Ik), 
subroutine (SR). (AN/OR lines’ can ‘appear within any of the 
calculations specifications. ) : 
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If columns 7-8 are left blank, detail calculations are performed: 
the operation specified on the same line is performed each time a 
record is read, provided the operation is allowed by indicators 
in columns 9-17 of that line or by AN/OR lines associated with 
that line. Operations conditioned by control level indicators in 
columns 9-17 are done at detail calculation time immediately 
following the control break. 


Total calculations are specified next, by LO, Li-LS, or Ik in 
columns 7-8. In one program cycle, all operations conditioned by 
control level indicators in columns 7-8 are done at total 
calculation time. All LO calculations must appear before [Li-L9, 
and Lk calculations must appear after L1-L9 calculations. The LR 
indicator is used to condition all operations that are to be done 
only at the end of the job. When it automatically turns on after 
the last input record has been processed, all other control level 
indicators also turn on automatically, and the job ends after all 
total operations have been performed. The LR indicator can also 
be turned on by a SETON operation. This does not, however, cause 
all the other control level indicators used to turn on. 


Subroutine calculations, specified by SRK in columns -—&, are used 
to indicate that a line is part of a subroutine (see "Subroutine 
Operations"). Subroutine lines must be specified last. 


AN or OR specified in columns 7-8 shows that lines of indicators 
are in an AND or OR relationship. By using the AND/OR 
relationship, many lines of indicators may be prouped together to 
condition an operation. A maximum of seven AN, OR, or AN/ChK lines 
may be used to condition an operation. The first line of @ group 
linked by AN/OR lines must contain blanks in columns 7-&, or 
LO-L9 or LR if the group of lines is conditioned by a control 
level indicator, or Sh if the group is part of a subroutine. All 
lines after the first line in the froup must have an AN or OR 
entry in columns /-&8. The indicators on each line are in an AND 
relationship, Although each AN/Ok group requires at least one 
indicator, it is not necessary to nave three indicators on each 
AN and OK line. All lines in the group prior to the last line 
must contéin blanks in the columns for the factor 1, factor 2, 
operation, and resulting indicator entries. The last line of the 
group must contain the operation and the necessary operands, 


Columns 7-80 may also be used for comments (see Section 4, 
columns 7-14). 


OPERATION INDICATORS (Columns @17) 


One to three indicators per line may be used in columns S17 to 
control whether or not an operation is to be done. Three se; te 
fields appear on each line (colums 911, 12-14, and 15-17), one 
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for each indicator. The three indicators are in an AND 
relationship with each other. If AN or OR entries are used in 
columns 7-8, many indicators can be used to condition one 
operation. Up to seven AN or OR lines are permitted in any 
combination. Fach operation indicator is specified by two 
entries: N, and the indicator itself. 


NOT ON (Columns 9, 12, 15) 


Entry Description 
Blank The indicator specified in the next two 


columns is on. 
N The indicator specified in the next two 
columns is not on. 


If an indicator must not be on to condition an operation, an N is 
placed in the column immediately preceding the indicator 
specification. 


INDICATOR (Columns 10-11, 13-14, 16-17) 


Entry Description 
Blank The operation is performed every time it 


is encountered, if columns 7-8 are not IO, 
L1 -L9 9 or SR e 


01-99 The operation is performed if a 
resulting indicator used elsewhere 
in the program is on/off. 


LO—L9 | A control level indicator previously 
assigned is used. 

LR. The last record indicator is used. 

MR The matching record indicator is used. 

HO—-H9 A halt indicator assigned elsewhere is 
used. 

U1-—U& An external indicator previously set is 


used. 
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CA--OG An overflow indicator previously assirned 
OV is used. 
1P The first page indicator is used. (This © 


indicator is normally off, even the first 
time through the object prorram cycle, 
unless it has been purposely set on.) 


Up to three indicators may be entered ona line. Additional 
indicators may be entered on following AN/OR lines. The 
indicators on one line, or indicators in grouped lines, plus the 
control level indicator (if used in columns 7-8) must 211 be 
exactly as specified before the operation can be performed. 


FACTOR 1 (Columns 18-27) arid FACTOR 2 (Columns 33-42) 


Entry Description 

1-10 charac— Any alphanumeric or numeric literal may be 
ter literal used in either or both factors. 7 

1-6 charac-— Any subroutine, table, array name, or 

ter name array item may be used in either or both 


factors. NOTE: An array item specification 
may exceed 6 characters because of the 
addition of a comma and an index. 


UDATE Special word date field names may be used 
UMONTH in either or both factors. 

UDAY 

UYEAR 

PAGE Special word pare fields may be used in 
PAGE1 either or both factors. 

PAGE2 

1-6 charac— A label for a TAG, BEGSR, or ENDSR 

ter label operation may be used in factor 1 only. 
1-6 charac— A label for a GOTO or EXSR operation 
ter label may be used in factor 2 only. 


Columns 18-27 and 33-42 are used to name the fields or to sive 
the actual data (see "Literals" at the begirning of this section) 
on which an operation is to be performed. 


An entry in factor 1 must begin in column 18; an entry in factor 
2 must begin in column 33. The entries to be used depend upon the 
operation being described (see columns 28-32). Some operations 
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need entries in both factor 1 and factor 2, some operations need 
entries in only one of the factors, and some operations need no 
entries at all (see columns 25-32). 


OPERATION (Columns 28-32) 


Entry Description 

ACD Adds factors 1 and 2 and places the sum 
in the result field. 

Z-ADD Replaces the result field with factor 2. 

SUB Subtracts factor 2 from factor 1 and 
places the difference in the result field. 

Z—S UB Changes the sign of the field by 
subtracting factor 2 from the result rield 
and placing the negative of factor 2 in 
the field. 

MULT Multiplies factor 1 by factor 2 and 
places the product in the result field. 

DIV Divides factor 1 by factor 2 and 
places the quotient in the result fieic. 

MVR Moves toe remainder from the previous 
divide operation to the result field. 

SQRT Derives the square root of factor 2 and 
places it in the result field. 

XFOOT Adds array items and puts the sum in the 
the result field. 

MOVE Moves characters from factor 2 to the 

| rightmost positions of the result field. 

MOVEL Moves characters from factor 2 to the 
leftmost positions of the result field. 

MHHZO0 Moves the zone from the leftmost factor 2 
position to the leftmost result field 
position. 

MHLZO Moves the zone from the leftmost factor 2 


position to the rightmost result field 
position. 


MLLZO 
MLHZO 


COMP 


TESTZ 


BITON 
BITOF 
TESTB 
SETON 
SETOF 
GOTO 
TAG 
LOKUP 
BEGSR 


ENDSR 
EXSR 
EXCPT 


FORCE 
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Moves zone from the rightmost factor 2 
position to the rightmost result field 
position. 


Moves zone from the rightmost factor 2 
position to the leftmost result field 
position. 


Compares factor 1 with factor 2 and 
turns on/off resulting indicators. 


Tests the zone of the leftmost result field 


character and turns on/off a resulting 
indicator. 


Turns on the result field bits identified 
in factor 2. 


Turns off the result field bits identified 
in factor 2. 


Tests the result field bits identified in 
factor 2 for an on/off condition amd turns 
on/off resulting indicators. 


Turns resulting indicators on. 

Turns resulting indicators off. 

Skips instructions backward or forward 
to continue processing at the named 
instruction. 


Names the instruction to which the GOTO 
skip is to be made. 


Searches for specific items in tables or 
arrays. 


Defines the beginning point of a 
subroutine. 


Defines the end of a subroutine. 
Causes a subroutine to be executed. 


Writes records while calculations are being 
performed. 


Identifies the file from which the next 
record is to be selected. 
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DSPLY Prints one or two fields, table items, 
literals, or array items up to 125 
characters. <A special case of the DSPILY 
operation causes a program halt and 
allows the programmer to blank out or 
change a field or item where contents 
have been displayed. 


READ Reads input from a demend file during the 
current program cycle. 

CHAIN | Reads a record from a chained disc file 
during calculations. 

EXIT Transfers control from the RPG II program to 
a user subroutine, 

RLABL Allows an external subroutine to reference 
a field internel to the RPC II program. 

ULABL Allows the RPG II internal program to 


reference a field in an external subroutine. 


DEBUG Locates programming errors in a 
malfunctioning program. 


Columns 2&—32 are used to specify the kind of operation to be 
performed using resulting indicators, factor 1, factor 2, and/or 
the result field. The operation code must begin’ in column 28. The 
operations are performed in the orcer specified on the 
calculation sheet. All operations conditioned by control level 
indicators in columns 7-8 must follow those which are not 
conditioned by control level indicators. All operations that are 
part of a subroutine (SR in column 7-8) must follow all other 
calculations in a program. Every operation code used requires 
certain entries on the same specification line. See "Operation 
Codes" at the beginning of this section for more information. 


RESULT FIELD (Columns 43-4&) 


Entry Description 
1-6 valid Contains the name of a field, table, 
cheract ers array, or array item. 


Columns 47-48 are used to name the field, table, array, or array 
item that is to hold the result of the operation specified in 
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columns 28-32. The result field name must begin with an 
alphabetic character in column 45 and contain no blanks or 
special characters. A new field may be defined, or the name of a 
field, tatle, array, or array item that has already been_cefined 
in extension specifications, input specifications, or elsewhere 
in the calculation specifications may be used. If the name of a 
field that has already been defined is being entered, entries in 
columns 4%52 are not necessary; but if they are specified they 
must agree with the previous definition of that field. 


If the name of a field tnat has not been defined elsewhere is 
rape entered, columns 49-52 should also contain entries. A new 
field may be defined by entering a field name that has not 
already been used; the field will then be created when the 
program is compiled. The named field may be either numeric or 
alphanumeric, but it must be numeric if it is used in arithmetic 


operations or if it is edited or zero—suppressed in output—format 
specifications. 


RESULT FIELD LENGTH (Columns 49-51) 


Entry Description 
Blank The alphanumeric or numeric field to 


be used is described elsewhere. 


1-255 Defines the number of digits in a numeric 
result field (1-15), or the number of 
characters in an alphanumeric field 
(1-255). 


Columns 49-51 are used to specify the length for any result 
field. If a result field that Ss not been used before is being 


named, the new form of the data and its new length after 
performing the operation must be considered. 


DECIMAL POSITIONS (Column 52) 


Entry Description 
Blank Either the field is described elsewhere, 


or the field is alphanumeric. 


0-9 The number of decimal places in a numeric 
result field is enterec. — 
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Coiumn 52 is used to indicate the number of positions to the 
right of the decimal point ina numeric result fiela. If the 
numeric result field contains no decimal positions, a zero is 
entered. 


the number of decimal positions must never be greater than the 
length of the field, Ihe number way, however, be larger or 
smaller than the number of decimal positions that actually result 
from an operation. If the number is greater, zeros are rilled in 
’ to the rigl.t. If it is smaller, the rightmost digits are dropped. 


The decimal positions entry must be left blank if the result 
field is alphanumeric. It mey also te left blank if tne result 
field is numeric but has teen previously described in the 
extension, input or calculatior specifications, in which case 
the field length columns (49-51) must also be blank. 


HALF~ALJUSS. (Column 5%) 


Entry Description 
Blank Half-acjusting does not take place. 
H The contents of the result field are to be 


half~ad iusted. 


Olumn 53 can ce used only witi, arithmetic operations to indicate 
thet the contents of the result field are AQ be nalf-adjusted 
(rounded). Half—adjusting is cone by adding a 5 to the number at 
the right of the last decimal position specified for a positive 
field, or -5 if the field is negetive. cecimal positions to 
the right of the position specified for that fieid are then 


dropped. 


RESULTING INDICATORS (Columns 545°) 


Entry Description 
01—99 A numeric indicator is used. 
HO~H9 . A halt indicator is used. 


LO—~L9 A control level indicator is used. 
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IR A last record indicator is used. 
MR The matching record indicator is used. 
CA—GG , An overflow indicator specified on the 
OV file description sheet is used. 


Ui—U& A user-defined internal indicator is used. 


Columns 54-59 are used to test the value of the result field 
after an arithmetic operation; to check the outcome of a CHAIN 

LOKUP, COMP, TESTB, or TESTZ operation; to specify which 
indicators to change by a SETON or SETOF operation; or to 
indicate end-of~file for the READ operation code. 


Entering an indicator in columns 54—-5° specifies that the result 
field is to be tested after the operation specified in columns 
28-32 has been performed. hormally, only indicators 01-99 and 
HO-H9 are used for testing. Column headings in columns 54—59 have 
no mesning for the SETON and SETOF operations, however the 
incicators to be turned on or off by the operations SETON or 
SETOF may be entered. Any indicators to be turned on or off by 
the SETON or SETOF operations ere specified from left to right in 
the three resulting indicator fields. 


If an 01-90 or HO-H9O indicator is specified, it is turned cn only 
if the result field satisfies the condition for which it is being 
tested, otherwise it is turnec off. Three fields can be used for 
this purpose, each of which tests for different conditions, 
Columns 54—55 test for plus or high, columns 56-57 test for minus 
or low, and columns 58-59 test for zero or equal. An indicator 
can be tested for more than one of the conditions. 


An indicator is placed in columns 54-55 (PLUS or HIGH) to test 
wnether the result field in an aritnmetic Operation is positive; 
whether factor 1 is higher than factor ¢ in a COMP or teble or 
array LOKUP operation; or to test the results of one of tne 
following operations: CHAIN (not found), TESTB (all zeros), or 
TESTZ (C zone). 


Ani indicator is placed in cclumns 56-57 (MINUS or LOW) to test 
whether the result field in an aritimetic operation is negative; 
whether fector 1 is lower than factor 2 in a COMP operation or 
table or array LOKUP operation; or to test the results of a TESTE 
(mixed) or TISTZ (D zone) operation. 


An indicator is placed in columns 56-59 (ZEKO or EQUAL) to test 


whether factor 1 is equal to factor 2 in a COMP or table or array 
LOhUP operation; or to test the results of one of the following 
operations: READ (end-of-file), TESZb (all ones), or THSTZ (not C 
or LD zone). 
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COMMENTS (Columns 60-74) 


Entry Description 
1-15 Alphabetic, numeric, and special 
characters characters may be used in any combination. 


Any meaningful information the programmer desires can be entered 
in columns 60-74 to help in understanding or remembering what is 
being done .on each specification line. Comments are not 
instructions to the KPG II program; they serve only as a means of 
documenting a program. 


PROGRAM. IDLWEIXICATION (Columns 75-60) 


Entry Description 
Any These columns may be used for programmer 
Churac ters comments. 


the program identification entry or all cards following the 
control card may contain any characters, including blanks. The 
columns may be usec for programmer comments, if desirec. 
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SECTION 8. OUTPUT—FORMAT SPECIFICATIONS 
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Output is the result or product of processing. Output records 
consist of data that is gathered, calculated, or generated during 
object program operation. The output records are stored in files 
origi y designated as output or update files on the file 
specifications sheet. | 


The Output—Format Specifications Sheet (Figure 8-1) is used to 
describe these output records. Two kinds of entries can be made 
on this sheet: record description entries that describe which 
output records are to be written; and field description entries, 
which indicate the position and format of the information 
contained in the output records. Field description entries must 
always be entered one line lower than record description entries, 
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Figure 8&-1.. RPG II Output—Format Specifications Sheet. 
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TYPES OF OUTPUT RECORDS 


The four types of output records are heading records, detail 
records, total records, and exception records. 


Heading records contain identifying information which does not 
usually change from page to page, such as the report name, the 
date, and the column titles. 


Detail records contain information that comprises the subject 
matter of the report. Most of the information in detail records 
is gathered directly from input records or calculated during 
program operation. 


Total records are generally cumulative sums of the calculations 
in detail records, and are usually written last. They may not be 
specified for primary or secondary update files. 


Exception records are always written during calculation time, and 
can only be used when the EXCPT operation code is entered on the 
Calculation Specifications Sheet (Section 7). 


Within each type, records are processed in the order in which 
they appear in the output specifications. 


OVERFLOW INDICATOR 


An overflow indicator may be assigned for a print file on the 
File Description Specifications Sheet (Section 3). The indicator 
is turned on when a line is printed on or below the overflow 
line. If overflow occurs during header and detail_output, the 
indicator is turned off after the header and detail records of 
the next cycle are written to output. If overflow occurs during 
total output or during LXCPi output (see Section 7, "Operation 
Codes"), the indicator is turned off after the header and detail 
records of the following cycle are written to output. 


NO OVERFLOW PROCESSING 


If an overflow indicator is assigned in the file description 
specifications but is never used to condition an output record, 
the RPG II System does no special processing for the overflow 
condition. 
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AUTOMATIC SKIP TO TOP OF FORMS 


If no overflow indicator is assigned in the file description 
specifications for a print file, the RPG II System generates a 
skip to channel 1 in place of normal overflow processins. The 
timing of this skip cannot be altered by anything in the prorram. 


OVERFLOW ROUTINE 


All records conditioned by the overflow indicator are outrut by 
the overflow routine. Under normal conditions the overflow 
routine is called automatically, however in certain cases the 
overflow routine may be called or "fetched" ahead of the normal 
time (see column 16, this section). 


Normal Processing 


If the aSsigned overflow indicator is turned on durine normal 
output, processing continues in the usual manner until all total, 
header, and detail records not conditioned by the indicator have 
been written to output. At this point in the prorram cycle the 
overflow routine is called. 


The overflow routine first prints all total records that have 
been conditioned by the indicator, then all header and detail 
records conditioned by the indicator. A skip to channel 1° should 
be entered in the first header record, since skips to a new pare 
are not automatically generated by the RPG II System in normal 
overflow processing. | 


Fetching the Overflow Routine 


Problems can occur under normal overflow processing when several 
detail and total lines must be printed during each rerular 
program cycle, causing printing to go past the end of the pare. 
Although the programmer could avoid this situation by setting the 
overflow line high enough on the page to accommodate all the 
possible lines after overflow, some empty pages would result. 


To circumvent the problem entirely, the overflow line should be 
assigned just high enough on the page to include only the number 
of lines needed to print all total records conditioned by the 
overflow indicator, then the overflow routine should be fetched 
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for the given printer line. If this procedure is followed, the 
overflow indicator is first checked, and if it is on, the 
overflow routine is executed before that line is printed. 


PAGE NUMBERING 


Automatic page numbering takes place when the special word PAGE 
is entered in the field name columns (32-37). When PAGE is 
entered in the Output—Format Specifications Sheet without being 
defined elsewhere, the program treats it as a four—position 
numeric field with no decimal positions, and automatically 
increments it by 1 each time a new page is encountered. Pare 
numbering may start at a number other than 1 only throurh a 
specification on the input sheet (see Section 6, columns 53-58) 
or the calculation sheet (see Section 7, columns 43-48). 


A PAGE field defined in the input or calculation specifications 
sheets may contain as many as 15 positions, but must be defined 
with zero decimal positions. Leading zeros are suppressed, and 
the sign must be specified via an edit word or code before it can 
be printed in the rightmost position. Pare numbering then berins 
with Vs unless otherwise specified, and is automatically 
incremented by 1 each time the PAGE field is written. 


Up to three print files can be individually numbered concurrently 
by entering special words PAGE, PAGE1, and PAGE2 in the field 
name columns of the output specifications, however each special 
word can. be assigned to only one file. 


et en teennneinre mma: 


ITERATED FIELDS 


Entering *PLACE in columns 32-57 causes all fields named before 
it on the specifications sheet for each to be repeated in the 
same Yelative locations ending at the position defined in the 
*PLACE statements. An end position must be specified for every 
*PLACE line; the leftmost position of the fields to be moved by 
the *PLACE specification is always assumed to be position 1. The 
end position should therefore be twice the’ number of the hirhest 
end position used in the previously named fields, to avoid 
overlaying previous data. 
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REPORT DATES 


Special words may be used in columns 32—37 to cause the date to 
appear in a specified format on printed reports or output 
records. Four such words allow the programmer to vary his format 
as desired: UDATE, UDAY, UMONTH, and UYEAR. UDATE produces a 
six—character numeric date field in either Domestic format 
(mmddyy) or United Kingdom/European Convention format (ddmmyy). 
UDAY may be used to obtain dates consisting of days only; UMONTH 
to obtain months only; and UYEAR to obtain years only. Slashes 
and periods may be inserted via editing to separate from each 
other the day, month, and year portions of a date. 


EDITED FIELDS 


Bditing can be specified for the information in numeric output 
fields to enhance the legibility of a field in several ways: 


By inserting special characters or delimiters, such as 
commas, periods, spaces, etc., between characters of the 
field. 


By indicati a negative field with a minus sign (—) or 
credit sign (CR). 


By suppressing leading zeros and replacing them with blanks. 


By suppressing leading zeros and printing asterisks instead 
(asterisk fill). 


By inserting a dollar sign immediately before the most 
a aaa non-zero digit in the field (floating dollar 
Sign). 


EDIT: CODES 


One—character edit codes prov ice the above editing features for 
frequently used formats and take into consideration the inverted 
print option of the control card specification (Section 2, column 


. 


q 
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EDIT WORDS 


Edit words give the programmer more flexibility by allowing him 
to Jay out explicitly the entire resulting output field, 
character by character. This is done using replaceable and 
non—replaceable characters. Replaceable characters are those 
positions which are to be occupied by digits of the edited field. 


CONSTANTS 


Constants may be used in columns 45-70 instead of edit words; or 
they may be used within edit words. Constants comprise any 
unchanging information, such as a column heading or title, that 
is entered by a specification. They must be enclosed in 
apostrophes when they are entered on the specifications sheet. Up 
to 24 characters of constant information may be entered on a 
specifications line. 


CODING INSiRUCTIONS 


Detailed instructions for coding the output-format entries on the 
specifications sheets are defined below. 


PAGE NUMBEF (Columns 1-2) 


Entry Description 
01-99 Specifications sheets ere numbered 
sequentially. 


More than one of each type of specifications sheet may be used in 
the course of coding the source program. To keep the sheets in 
the proper order, the coded Output-—rormat Specifications Sheets 
nust be grouped together, numbered sequentially, and placed 
immediately after the Calculation Specifications Sheets. 
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LINE NUMBER (Columns 3-5) 


Entry Description 
Any number Line numbers are assigned in ascending 
sequence. 


Line numbers are preprinted in columns 3-4 of the specifications 
sheet for the programmer’s convenience. The unnumbered lines 
below the preprinted numbers can be used for additional lines or 
to insert a line between completed lines. Column 5 can also be 
used to this end. The line numbers assigned need not be 
consecutive, but they must be in ascending order. 


TYPE OF FORM (Column 6) 


iEntry Description 
G © identifies the output—format 


specifications to the compiler. 


FILENAME (Columns ‘/~14) 


Entry Description 
1-8 The output file being described is 
characters naned. 


Every output file to which records are to be written must be 
naned previously in the file description specifications. The 
exact filename originally assigned must be entered, beginning in 
column 7. 


The output filename must appear on the first line containing 
information relevant to a particular file, but need be specified 
only once. The information on the following lines refers to the 
previous filename until a new SLilename is entered in columns 
(—14.- 


Columns 7-80 may also be used for comments (see Section 3, 
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AND/OR (Columns 14-16) 


Entry Description 
AND More than three indicators are used to 


comition the output operation. 


OR Cutput indicators are used to condition 
an OR relationship. 


The AND/CR entry is used in conjunction with the output 
indicators entry (columns 23-31). AND Lines can be usec when more 
than three output indicators are used to condition an output 
operation. The word AND is entered in columns 14—16 of the next 
lines following the first line on which the first three 
indicators are specified. The condition of all indicators 
assigned must then be satisfied (on or off) before the output 
operation can be performed. 


Output indicators may also be assigned in an OR relationship, If 
either or both of the OR conditions are met, the output operation 
is performed. OR jlines are indicatec by the word OR in columns 


Both AND and OR lines are allowed in an output operation. A 
maximum of 20 such lines may be used for each record description. 
AND and OR lines cannot be used to condition a field. 


TYPE OF RECORD (Column 15) 


imtry Description 
H The record is a heading record. 
D The record is a detail record. 


The record is a total record. 


The record is an exception record. 


The entry in column 15 is used to specify the type of output 
record to be printed, punched, or written on disc. column 15 
is left blank, an error condition occurs. See columns 23-31 for 
information concerning the heading and detail specifications used 
with control level and overflow indicators that specify when 
output records are to be written. 
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If it is necessary to continue the description of indicator 
conditions under which output should occur, the specifications 
should be made in AND or OR specifications lines following the 
type of record entry. 


ADD (Columns 16-18) 


Entry Description 
ADD A record is to be added to the file. 


When a record is to be added to an input, output, or update file, 
the word ADD is entered in columns 16-18 of the first line for 
each record to be added. Disc must be specified as the output 
device for the file to which the record is to be added, and anA 
must be coded in column 66 of the File Description Specifications 
Sheet for the file. Columns 16-18 may also be used for the 
stacker/overflow and space specifications for printer or card 
files. 


STACKER/OVERFLOW (Column 16) 


Entry Description 
Blank The overflow routine is not to be fetched. 
1-4 (For card files this specification is 


reserved for future implementation. ) 
F The overflow routine is to be fetched 
for a printer file. 


Column 16 may be used to specify that the overflow routine is to 
be used for a printer file. 
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An F entered in column 16 is used to specify the fetch overflow 
routine and causes overflow lines’ to be printed ahead of the 
usual time. The fetch overflow routine does not automatically 
cause forms to advance to a new page, but merely prohibits the 
printing of remaining detail and total lines mtil overflow lines 
are printed. To achieve page phos ome _& skip to channel 1 must 
be specified on a line conditioned by he overflow indicator. 


The overflow routine is fetched only if all conditions cified 

by the indicators in columns 23-31 are met, and an overflow has 

opie The 1P indicator may not be used with fetched overflow 
ines. 


SPACE (Columns 17-18) 


Columns 17-18 are used to specify line spacing for one page of an 
output file to be inted. Line spacing may be required both 
before and after a line, thus the entry 1s divided into before 
and after columns. Up to three spaces may be specified both 
before and after a line of print, so that as many as six spaces 
can be left between two printed lines. 


If columns 17-18 are left blank, single spacing occurs 
automatically after each line is printed. 


When the destination of a spacing operation is beyond the 
overflow line but not ona new peaee, e overflow indicator is 
turned on until all overflow lines are printed. 


When space and skip are specified on the same line, they are done 
in the following order: 


Skip before the line of print. 
Space before the line of print. 
Skip after the line of print. 
Space after the line of print. 
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BEFORE (Colum 17) 


Entry Description 

Blank No spacing. is required before a line is 
printec. 

1) No spacing is required. 


One space is to be left before each line 
is printed. 


2 Two speces are to be left before each line 
is printed. 


3 Three spaces are to be left before each 
line is printed. 


If colum: 17 is left btank, no spacing occurs before print; 
otherwise one, two, three, or no lines are left blank before the 


next line is printed, according to the number entered. 


AFTER (Column 18) 


Entry Description 

Blank ie Se required after a line 

.) No spacing is required. 

4 One spece is to be left after each line 


is printed. 


2 Two speces are to be left after each line 
is printed. 


e, Three spaces are to be left after each line 
is printed. 


| If colums. 17 and 18 ere left blank, single spacing occurs 
automatically; otherwise one, two, three, or no lines are left 
blank after each line is printed, according to the number 
entered. 
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SKIP (Columns 19-22) 


kr pping | is controlled by _the printer carriage control ta A 
skip be made to channel O01 for a new page, or to any c the 
other 1. channels assigned in the line counter specifications for 
succeeding pages. Skips can be specified to occur both prior toa 
line of print (columns 19-20) and after the line is printed 
(columns 21-22). If the columns are left blank, no skipping 
occurs. 


If an L is specified in column 53 of the control card, the 
generated RPG program tre simulates skips to a line. It gets its 
starting potne Pius an initial skip to chamnel 01, and assumes that 
channel O7 is on line O06. All subsequent spacing is then relative 
to that starting point. 


SECTION 8 PAGE 


BEFORE (Columns 19-20) 


Entry 
Blank 


01 


02-12 


01-99 


AO~AS 


BO-B2 


If printing is 


Description 


No skipping is to be done before 
a line is printed. 


A skip is to be made to a new 
page before a line is printed. 


A skip is to be made to the 
indicated channel number before 
a line is printed. 


An L has been entered in column 
53 of the control card specifica~ 
tions sheet; a skip is to be 

made to the line indicated. 


An L has been entered in column 

53 of the control card specifica— 
tions sheet; a skip is to be meade 
to the specified line in the range 
100 (AO) through 109 (A9). 


An L has been entered in column 

53 of the control card specifica— 
tions sheet; a skip is to be 

made to the specified line in 

the range 110 (BO) through 112 (B2). 


12.1 


to be continous, columns 19-20 are left blank; 


otherwise skips can be made to other print channels before 
printing starts to begin a new page or format the printing on the 


irrent page 
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AFTER (Columns 21-22) 


Entry 


Blank 


01 


02-12 


01-99 


AOQ—AS 


BO-—B2 


An entry 
channel 


Description 


No_ skipping is to be done after 
a line is printed. 


A skip is to be made to a new 
page after a line is printed. 


A skip is to be made to the 
indicated channel number after 
a line is printed. 


An L has been entered in column 
53 of the control card specifica- 
tions sheet; a skip is to be made 
to the line indicated. 


An L has been entered in column 

53 of the control card specifica- 
tions sheet; a skip is to be 

made to the specified line in 

the range 100 (AO) through 109 (AQ). 


An L has been entered in column 
53 of the control card specifica- 
tions sheet; a skip is to be 

made to the specified line in 
oo 110 (BO) through 112 


in columns 21-22 causes skipping to the specified 
to be performed after a line is printed. An 01 


specification, for example, would cause the next line to start at 
the top of a new page. 
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OUTPUT INDICATORS (Columns 23-31) 


The output indicator columns are divided into three entries. Up 
to three indicators can be entered per line. One indicator can be 
entered in columns 23-25, another in columns 26-28, and a third 
in columns 29-31. If the actual state cf the indicators coincides 
exactly with that described in columns 28-31 (and all AND/OR 
lines), and the line is an output field line, the field is put 
into its output record. If the state of the indicators coincides 
and the line is a record description line, the record is output. 
(See Appendix B, Tables B2 and B3, for indicator summaries. ) 


NOT ON (Columns 23, 26, 29) 


Entry Description 
Blank The indicator specified in the 


next two columns is on. 


N The indicator specified in the 
next two columns is not on. 


If an indicator is not required to be on to condition an output 
operation, an N must be placed in the column immediately 
preceding the indicator specification. The indicator must then be 
exactly as specified (not on) before the output operation can be 
performed. 
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INDICATOR (Columns 24-25, 27-28, 30-31) 


Entry Description 
01-99 A resulting indicator, field indicator, 


or record identiiying indicator previously 
assigned to the record or field is to te 


used. 

L1-L9 A control level indicator previously 
assigned to the record or field is to be 
used. 

HO—H9 A halt indicator previously assigned to the 


record or field is to be used. 


CA—-OG , OV An overflow indicator previously assigned 
to the file containing this record or field 
is to be used. 


MR The matching record indicator is to be used. 
LR The end-of-—job indicator is to be used. 
1P The first page indicator is to be used. 


This indicator cannot be used with record 
types T and E. 


LO The level zero indicator is to be used. 


U1-—Ue An external indicator is to be used. 


Up to three indicators may be entered on a line. When a field is 


to be. printed, the output indicators in columns 23-431 must be 
entered on the same line being used to specify the field name 


(columns 32-37). 


A file named in the output-format specifications may be 
conditioned by an external indicator (U1-U8) in the file 
description specifications. External indicators can also be used 
to condition a record or field. No output can occur to a file if 
an external indicator conditions the file and that indicator is 
off. 


Fields can be prevented from printing through the use of 
indicators. 
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FIELD NAME (Columns 32-37) 


Entry Description 

Blank A constant is to be entered in columns 45-—70 
(edit word or constant entry). 

1-6 A field name previously eae ate 

characters in the program or the name of a table, 


array, or array item is to be used. 


*¥PLACT This special word is used to cause a repeat 
of a field or a set of fields within a 
record or report. 


PAGE These special words are used in numbering 
PAGE the pages of the report. 

PAGE2 

UDATE These special words are used in dating the 
UDAY report. 

UMONTH | 

UYEAR 


If afield name is used in columns 32-37, it must be the same as 
the field name assigned on the input sheet or the calculations 
sheet. No entry can be made in columns 7-22 of the same line and 
although an edit word may be entered in columns 45-70, a constant. 
cannot. 


Fields can be entered in any order. The sequence in which they 
will be moved to the output record buffer is determined by the 
order in which they appear on the specifications sheets. When a 
later output field overlaps the first field specified, the 
overlayed original data is lost. Detail printing of a selected 
field occurs when entries are specified for the field name, 
columns 32-37, and ending position, columns 40-43, in the 
Output-—Format Specifications Sheet. Output indicators may also be 
specified. When a field is to be printed, the associated output 
indicators (columns 23-31) must be entered on the same line being 
used to specify the field name (columns 32-37). 


Numeric field si (+ or —) lie in the units position containing 
the rightmost digit. <A minus sign in the rightmost ates of a 
numeric field prints as a letter unless the field is edited (see 
column 38). 
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Special Word *PLACE 


The special word *PLACE is used to cause specified fields to be 
repeated ending in a specified position of an output record. 


*PLACE must be specified after the field names which are to be 
placed in different positions in one line. The entry then causes 
all fields in a record type which are listed above it to be 
written. *PLACE must appear on a separate specification line for 
every additional time the field or group of fields is to be 
written or punched. 


An end position must be specified for every *PLACEK line. The end 
position specified for *PLACE must be at least twice the highest 
previously specified field end position. When *PLACE is specified 
for card output, the fields and constants named above *PLACE will 
be repunched. A *PLACE specification must not be conditioned by 
indicators in columns 23-31. *PLACE is automatically conditioned 
by the same indicators which condition the field or fields to be 
repeated. Columns 38, 39, and 44—70 should be blank for *PLACE, 


Special Words PAGE, PAGE1, PACGK2 


Special word PAGE, PAGE1, or PAGCE2 is entered in columns 32-57 
when the report pages are to be numbered. The same entry cannot 
be used for two different output files. The page numbering 
sequence can be restarted at any time by setting the PAGE field 
to zero before it is. printed. This can be done via the blank 
after entry (column 39) or by using an output indicator. A PAGE 
field is always printed, regardless of whether or not it is 
conditioned by an indicator. If the indicator is as specified in 
columns 27-31, the PAGE field is set to zero, 1 is added, and the 
page number is written as 1. 


A page field is assumed to be a four--position numeric field with 
no decimal positions. Leading zeros are suppressed and the sig 
is not printed in the rightmost position unless the field is so 
edited. 
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Special Words UDATE, UMONTH, UDAY, UYEAR 


Special words UDATE, UMONTH, UDAY, and UYEAR are entered in 
columns 32-37 to record the system date in the report. UDATE 
produces a six—character numeric date field in mmddyy or ddyymm 
format (specified in column 21 of the control card). Using edit 
code Y, the edited date field is eight characters long, in one of 
three formats: | 


Domestic (MM/DD/YY). 
United Kingdom a 
European Convention (DD.MM.YY). 


UDAY, UMONTH, and UYEAR may be used for days only, months only, 
and years only, respectively. The special word date fields may 
not be changed by any operations specified in the calculations or 
output sheet. 


EDIT CODE (Column 38) 


Entry Description 

Any valid The edit code specifies the type of 

edit code eae to be done on the specified numeric 
ield. 


Edit codes can be used only for numeric fields. The table shown 
in Figure 8-2 summarizes the edit codes provided on the 
Output—Format Specifications Sheet. 


(SRE Ent RA LTE CS A A A ER RC PTE SR 


ZERO BALANCES 
TO PRINT 


X = REMOVE PLUS SIGN 
Y = DATE FIELD EDIT 
Z= ZERO SUPPRESS 


Figure &2. Edit Code Table from Output—Format 
Specifications Sheet. 
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Each edit code punctuates a numeric field differently, as Figure 
&-3 shows. All codes suppress leading zeros except in the 
European Convention output format, specified by a J entered in 
column 21 of the control card. In this case all zero balances, as 
wel] as all balances with zeros to the left of the decimal comma, 
are written with one leading zero: .00 is written 0,00 and .07 is 
written 0,07. An edit code specified to print zero balances 
cannot suppress the zero to the left of the decimal comma; that 
zero will always print. 


If an edit code is used to punctuate an array, two spaces are 
left between array items. An edit word cannot be used in columns . 
45-70 if an edit code is used in column 38, except in the 
following cases: ; 


When leading zeros are to be replaced by asterisks, °“*’ must 
be entered in columns 45—47 of the line containing the edit 
code. 


When a dollar sign (floating) is to appear before the first 
digit in the field, °$” should be entered in columns 45--47 
of the line containing the edit code. | 


It is also possible to cause a dollar sign to appear before the 
asterisk fill by placing a dollar-sign constant one space before 
the beginning of the edited field, then placing °*” in columns 
45-47 of the line containing the edit code. 


Asterisk fill and the floating dollar sign may not be used with 
the X, Y, and Z edit codes. 


(Edit codes are summarized in detail in Appendix B, Table B5.) 


Z2arerRrxeeaodwpearwn = 


N < xX 


Effects of using 
specifications, 


domestic, 
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CHARACTER PRINTED 


ZERO 
BALANCE 


Removes the plus sign. 
Edits the date field. 
Suppresses zeros. 


Figure 8&3. Edit Code Functions. 


the inverted print option (control card 


column 21) in punctuating the date to obtain 
United Kingdom, and furopean Convention formats are 


illustratec in Section 2, Figure 2-2. 


BLANK AFTER (Column 39) 


Entry 
Blank 


B 


Description 


The field being described is not to be 
reset to zeros or blanks after writing. 


The field being described is to be reset 
to zeros or blanks after writing. 
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An entry is used in column 39 to reset a field to zeros or 
blanks. When the field is numeric, it is reset to zeros; when the 
field is alphanumeric, it is reset to blanks. No entry can be 
made for look-ahead fields or date fields assigned the names 
UDATE, UMONTH, UDAY, or UYEAR. 


Resetting fields to zeros is usually necessary when totals are 
being accumulated and printed for several control groups. Once 
the total for one group is found and printed, totals start 
accumulating for the next group. To prevent their being added in 
the totals for the previous group, the fields should be reset to 
zeros so that accurate totals will result. Entering a B in column 
39 causes the total field to be reset to zero automatically after 
it is printed. The B must be entered on the last output line for 
that field; otherwise the field will be reset before all required 
output is printed. 


When a table name is specified in the field name together with 


the blank after entry, the table item that was looked up last 
will be reset to blanks or zeros. 


ENDING POSITION (Column 40-43) 


Imtry Description 
1-4 The number of the print or punch position 
characters of the rightmost character in the field 


being described is entered. 


The number of the printing position of the rightmost character in 
a field or constant is entered in columns 40-43 to indicate its 
location on the output record to be written. 


Enough space must be allowed in the output record to hold edited 
fields. The largest number that can be used to indicate the end 
position for disc output is the record size. The largest number 
that can be used for printer output is governed by the number of 
print positions on the printer. When *PLACE is specified in 
columns 32-37 for the printer, tne ending position entry 
indicates the end position of the last field of the group to be 
printed. 


SECTION 8 PAGE 21 


PACKED OR BINARY FIELD (Column 44) 


Entry Description 
Blank The field is in unpacked numeric format 


or contains alphanumeric data. 


P The field is to be written on disc or punched 
into a card in packed decimal format. 


B The field is to be written on disc or punched 
| into a card in binary format. 


2 The field is to be written on disc as a 
two—byte binary field. 


4 The field is to be written on disc as a 
four—byte binary field. 


An entry must appear in column 44 when a decimal number is to be 
written on disc or punched into a card in packed decimal or 
binary format. Packed decimal and binary fields should not be 
printed; they can only be written on disc or punched into cards. 


After decimal fields are processed they can be left in unpacked 
numeric format, but disc space is more efficiently used if they 
are converted. into packed decimal or binary format. Fields. 
containing five or less digits are converted to two bytes of 
binary data for output; fields containing six to ten digits are 
converted to four bytes. To control the binary size directly, a 2 
must be entered for two-—byte binary output, or a 4 for four—byte 
binary output. | 


EDIT WORD OR CONSTANT (Columns 45-70) | 


Entry Description 
1-24 Either an edit word is used to punctuate a 
valid RPG II numeric field and columns 32~37 contain a 
characters | field name; or constant information is to be 
: | - entered in the récord and columns 32—37 are 


Edit words and constants are specified in columns 45-70. Hit 
words are direct specifications which indicate whether or not 
specific punctuation characters are needed. Because they are 
directly specified, edit words give more flexibility than edit 
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codes. When an edit word is specified, an edit code cannot be 
used in column 38. The name of a numeric field must be entered in 
the field name (columns 32-37) and the ending position must be 
specified in columns 40-43. An edit word cannot be longer than 24 
characters, and must be enclosed in apostrophes, with the leading 
apostrophe entered in column 45. The edit word itself must begin 
in column 46. The number of replaceable characters in an edit 
word must be equal to the length of the field to be edited. 


The replaceable characters are listed below. 


Character Position Use 
} Any Indicates that a digit from 


the edited field is to be 
placed in this position. 


0) Where zero Indicates that leading zeros 


suppression are to be replaced by blanks 
is to end up to and including this 
posi.tion. 
* Where asterisk Indicates that leading zeros 


fill is to end are to be replaced by 
asterisks up to and including 
this position. 


$ Left of the Indicates that a ee 
leftmost zero | dollar sign is to be placed 
before the most significant 
digit. 


All leading zeros are suppressed up to and including the first 
zero or asterisk. | 


The number of replaceable characters in the edit word must be 
equal to the length of the field to be edited, except in two 
cases: 


An extra space must be left in the edit word for a floating 
dollar sign to ensure a print position for the dollar sign 
if the output field is full. 


An extra space can be left in the edit word when the first 
character in the edit word is a zero. As a result, the field 
to be edited is not zero~suppressed , but all other specified 
editing is done. 
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All characters except ¥, O, *, and $, listed above, are 
non—replaceable characters. Non-replaceabie characters always 
print in the positions indicated in the edit word, except in two 

Cases : 


When CR and the minus sign (—) are used to the right of the 
rightmost replaceable character, they are printed only when 
the field is negative. Blanks are printed otherwise. Ail 
characters between the CR or minus sign, plus the rightmost 
replaceable character, are printed only when the field is 
negative. 


All characters inserted between digits of the field are 
zero—suppressed along with the digits of the field. 


An ampersand (&) is used in an edit word to represent a blank. A 
double apostrophe should be used in either an edit word or a 
constant to represent an apostrophe. 


Constants (Figure 8-4) comprise any unchanging information that: 
is entered by a specification. The data is entered exactly as it 
is to appear in the output record. Columns 32-39 and 44 should be 
blank. The constant should be enclosed in apostrophes with the 
leading apostrophe in column 45. | 
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Figure 8&4. Examples of Constant Information. 


PROGRAM IDENTIFICATION (Columns 75-80) 


intry Description 
Any These columns may be used for programmer 
characters comments. 


The program identification entry of all cards following the 
control card may contain any characters, including blanks. The 
columns may be used for programmer comments, if desired. 


PAGE 


APPENDIX A. DETAILED RPG II OBJECT PROGRAM CYCLE 


YES 
DO FIRST 

Bieta PAGE 
Pose OUTPUT 


A-3 


DO HEADING 
AND DETAIL 
OUTPUT 


SET OFF 
OVERFLOW 
INDICATORS 
FOR TOTAL 

OUTPUT 


ANY 
HALT 
INDICATORS 
ON? 


HALT OPERATOR 
OPTION 


SET OFF HO-H9, 
L1-L9, 1P, AND 
RECORD 1.D. 
INDICATORS 


LR 
INDICATOR 
ON? 


INITIALIZATION. 
SET USER 
INDICATORS 


GET NEXT 
. FILE CONTROL 
TABLE ENTRY 


NO 


OF TABLE? 


EXCLUDED BY 
USER INDICA. 


OPEN FILE 


OUTPUT, 
DEMAND, OR 
CHAIN FILE 
? 


TABLE 
OR ARRAY 
? 


READA 
RECORD 


IDENTIFY 
RECORD 


LOAD TABLE 
OR ARRAY 
FILE 


MOVE LOOK- 
AHEAD FIELDS, 
iF PRESENT 


LOOK. 
AHEAD ON 
RECORD JUST 
PROCESSED 


READ FROM 
FILE JUST 
PROCESSED 


IDENTIFY 
RECORD 
READ 


RECORD 
WITH MATCHING 
FIELDS? 


YES 


APPENDIX A 


PAGE 


END SET ON 
OF JOB L1-L9, LR 
? INDICATORS 


MULTIPLE 
NO. INPUT 
FILES 


? 
YES 


FORCE 
FILE TO YES 
SELECT 

? 


NO 


RECORD 
WITH NO MATC 
FIELDS TO 
SELECT 

? 


YES 


NO 


SELECT LOWEST 
SEQUENCE/HIGHEST 
PRIORITY RECORD, 
PERFORM SEQUENCE 
CHECK 


ne errr nen te | — 


TURN ON 
RECORD |.D, 
INDICATOR 


SET ON 
CONTROL LEVEL 
SNDICATOR IF LEVE 
BREAK OCCURRED | 


YES 


NO 


PERFORM 
LEVEL 
CALCULATIONS 


DO LEVEL 
OUTPUT 


PROCESS 
PRINT FILE 
OVERFLOW 


LR YES 
INDICATOR 6 
ON? 
ne) 
PAGE 
NO pw) 
OVERFLOW YES 
PROCESSING 


REQUIRED 
? 


NO 


APPENDIX A PAGE 3 


PROCESS 
TOTAL 
OVERFLOW 
OUTPUT 


PROCESS 


OUTPUT 


SET MR 
INDICATOR ON 
OR OFF 


MAKE DATA 
AVAILABLE 
FROM SELECTED 
RECORD 


READ 
ANOTHER 
RECORD 


MOVE 


LOOK-AHEAD 
FIELDS 


PERFORM 
DETAIL 
CALCULATIONS 


Oe EE TN TTS ST TTS OS SE TE LEI LILLE 


CONTROLLED 
CANCEL? 


DOLR 
CALCULATIONS 


PERFORM 
LR OUTPUT 


PROCESS 
TABLE AND 
ARRAY 
OUTPUT 


END OF JOB 


APPENDIX A 


PAGE 


4 


PAGE 1 


APPENDIX Be RPG II REFERENCE TABLES 


COLLATING ~ HEXADECIMAL 
SEQUENCE EQUIVALENT 


COLLATING HEXADECIMAL 
SEQUENCE CHARACTER EQUIVALENT 


- 
- =oain 


oon fo fF &B &@ NN 


-— os se we wm ow 
oanktkhk & NHN = 6 


J 
K 

L 
M 
N 
a) 
P 
Q 
R 
8 
T 
U 
v 
w 
x 
Y 
z 
0 


= 


o ow estk & 86 N 


Table Bi. RPG II Collating Sequence. 


“zd oTARL 


*SIOYBOTPUL PTTEA 


File Description 
Specifications 


Indicators | 
01-99 
HO 
H1-HS 
1P 
MR 
OA-OG, OV 
LO 
Li-L9 


U1-US 


Control 


| | Pex | x | 
x bh os 
x6 
x | xX 
x | xX 
x | x 
x |x | % | x F x Fx. |] xX 
x x | xXx 
a | | 


Denotes the indicator that may be used. 

Not valid on look-ahead fields. 

When field named is not a match or control field. 

Only for detail or heading lines. 

Cannot condition an exception line, but may condition fields within the exception record. 


hot valid for table input files. 


hormally off, even the first time through the object program cycle, unless it is purposely set on. 


Output-Format 
Input Specifications Calculation Specifications |Specifications 


ms bp MM a OO 


i 


G@ XICNYddV 


IW 


"Cd STABL 


*(€ Jo - Ye) SuoTzeoTsroedg uo}eoTpuy Jo Aremmsg 


WHERE 


SPECI-— 
FICATION 


WHERE 
OOLS.| USED 


SPECI- 
FICATION 


Joors. 


TURNED ON TURNED OFF —| NOTES 


level Calculation 
Zero Sheet 
Internal 


Control | Li-L9/ Input Sheet 
Level | 


‘Calculation 
Sheet 


End—of- |IR Input Sheet 
Internal 


Calculation 
Sheet 


Matching | MR 


Overflow {OA,OB |File Descrip— 
Interne] |OC,OD |tion Sheet 
; OE,OF |Input Sheet . 
0G ,OV 
Calculation 
Sheet 


RESULTING 
INDICATORS 


54-55 


RECORD INDI-| 19-20] Inrut 


FIELD iNDi-~ 
CATORS 
RESULTING 
INDICATORS 


FIELD INDI~ 
CATORS 


RECORD INDI-| ‘71-72 
CATOR 
[54-55 output 


RESULTING 
INDICATORS 


59-60 
Calcu- 


65~—70 | lations} i 


54—55 
Output 


65--7C | Calcu= 
lations 


FIELD pene 63~—64 


OUTPUT INDI~| 23—31 
CATO; 


ATORS 


CONTROL 
LEVEL 


7-8 
9-17 


7-8 
G17 


At the beginning of| By calculations 
the program cycle. |specifications. 


When the value in a/At the end of the 1 
control field chan-|following detail 

ges (all indicators|cycle, or by cal- 

of the lower levels|culation specifi- 

are also turned on)|cations. 

or individually by 

input or calcula 

tions specifica- 

tions. 


After processing At the beginning 1 
the last record of |of processing. (can 
the last form (see not 
column 17 of the 
file description 


| specifications). 


If the matching When all total 
field contents of j|calculations and 
the record of a output are com 
secondary file pleted for the 
match the match last record of the 
field contents of a|matching group; or 
record in the pri- |by calculations 
mary file; or by specifications. 
calculations speci- 

fications, 


If the destination |At the end of the 
of a skip, space, detail cycle. 

or print operation 

falls within the 

forms overflow 

area, 


"CY 9TQeL 


*(€ Jo zg 41eq) SuotTyeoTsToadg IoyeotTpuy yo Arewmms 


re eee Stree RT heen ree 


TPE OF 
INDICATCR 


Record 
Identify- 
ing 


Resulting 
us 


Pag 
Interneél 


Halt 


WHERE 


EMTRY{ SPECIFIED 


SPECI~ 
FICATION 


SPECI- 


FICATION | OOLS. 


TURNED ON 


TURNED CFF 


NOTEC 


eee aaa = aq; ass mm TTS 


65—70 | Calcu- 


01-99|Input Sheet 


01-99 |Calculation 
Sheet 


1P Calculation 
Sheet» 


HC~H9 |Input Sheet 


Calculation 
Sheet 


FIELD INDI- 
CATORS 


lations 
Output 


RECORD INDI-|19-20 | Input 
CATOR 


RESULTING 


INDICATORS 


OPERATION 
IhDICATORS 


ex 
| Output [eators INDI- ae | 


Calcu- 
lations 


54—5¢ | Calcu- 


aECORD INLDI- 19-20 


CATOR 
FIELD | INDI- 


RESURTLNG 
INDICATORS 


€5-7C 
54-55 


lations 
Output 


Output 


Input 


Calcuw 
lations 
Output 


OPFRATION 
INDICATORS 


CATORS 


9-17 | By blank or zero in|Before this field 


specified field; by!status is to be 
OUTPUT INDI-| 23-31) plus in specified 
field; by minus in |time. 


specified field. 


tested the next 


FIELD RECORD) 63-64] When specified rec~|Before the next 
RELATION 


INDICATORS 


JOPERATION 9-17 


INDICATORS 
CATORS 


OPERATION 
INDICATORS 


OUTPUT INDI~|23—31| by a negative bal— 


CATORS 


OUTPUT INDI- |23~31|At the beginning of |Before the first 
CALORS 


ord has been read 
and before total 

calculations are 

ecuted. 


9-17 | By a positive bal- 


ance in the field, 


ance in the field, 
by a zero balance 
in the field. 


record is read 
during the next 
processing cycle. 


The next time a 
calculation is 
performed for 
which the program 
specifies the ind— 
icator as a resul— 


If factor 1 > fac.2 |/ting. indicator and 
lIf factor 1 < fac.2\|the condition is 
If factor 1 = fac.2 |not satisfied. 


If table > factor 
If table < factor 
If table = factor 


ae weways = 


If C zone Presents 
If D zone present. 
If no Cor LD zone + 
by a no-record- 
found condition. 


processing, before {detail record is 


any input records 
are read. 


tad ord aonb 


IELD KECORD |63—64|Whenever the speci- |Internally, at the 


RELATION 
INDICATORS 
OPERATION 
INDICATORS 


OUTPUT INDI~ |23~31 


CATORS 


fied field status 


end of the detail 


or record identifi- icycle. 


satisfied. 


9-17 |cation condition is 


1 


@ XICNdddv 


aOVd 


4 


*(€ Jo ¢ yreq) suoTyeoTsToedg roOZEOTpUY Jo Areumng 


SPECI— 
INDICATOR | EXTRY : FICATIO‘N USE FICATICN 


External |U1-—U8|File Descrip-|FILE CONDI- 63~64|Prior to object By input or calcu- 
tion Sheet TION lations specifica- 

Input Sheet iv by a MRX/OS control jtions. 

23~51 


54-59 |language parameter. 
Calculation RESULTING 
Sheet IDI CALORS 


Note 1. Turning indicators on or off can also be accomplished by using SETON and SETOF operation codes. 
Note 2. All control level indicators (L1-L°) are also turned on when is turned on. 

Note 3. The:overflow indicator remains on during the following detail calculations and output cycles. 
Note 4. This indicator is used to condition printing of the first page of the report. 


@ XIGNY¢ddv 


GOVE 


G 


RESULT 
a a ase 


| 
| 


ee] 


FACTOR 2 
TAG 


Ee 


FACTOR 1 


COMMAND 


X 


X 


X 


AEPENVIX 
oe  -  s Pe ce | 
ae de Gn de OM, Op ae wah ah eG oa ee « cape ae 
t § ¢F § € fF FF FF FF F Ff FF F&F FF FF J 4 
' ¢ § FF f fF Ff FF § FF FF $F F FF F FF 41 
' ¢@ Ff ff F F FF FF F Ff FF F GF EF F FF 4 
<~ < <M ae 4 ~ | -— ~ MS MH HM I 1 4 
~~ SN OM OMRON lS 
i 
~ «~ eON 
t+ § © € F FF F FS ee KM wR KK UES 
t ¢§ ¢' ¢ fF ff FF F Ft FF FF F€ £F FF £€ F 4 
i § fF € € FF £F § F F VF Fe tt + & 9 
i ft § ft § F€ $F FF F FF £F £F F F FF Ft 
i a a. a as Ps a | 
San, ee ee gece Gl as wa ees alee Os ee ae 
eae ce ee, eel cg ee ees Se, Ghee Be ay cae 
1m | mM mm FF F FF FF FE FF F £ F mw FT 4 
Bae aa ok i ie ba a eee 
a Wea, ae Ge age UE ta ree. eet ak 
t | §F FF FF FF FF §& FF F FF FF F€ FF F Fo 4 
i ate ok a ie ae a od oe pe a ae 
brie fae Se Ge. Se, AY AR am as 
Be ete’ fe Ins Ge fe Seat “sin, Mattes ai 
et eee Ais ci cit hh as, Se A ae 
fe aaa ce RS SERHR Se GE 
sae PEHESESSEERBR SHS 
Table B4. Valid Operation Codes (Part 1 


5B 


BITOF. 


PAGE 


SETOF 


6 


“7d STAeL 


“(2 Jo g sqzeq) sapop uoTyeredO PTTeA 


FACTOR 1 
| COMMAND LIT| FLD] ARR | TAG | SUB] FLW | ALB] 1.UM 


R 3 
Ee 
~  (t 
ot 
it 
t ot 
a | 
! ot 
a | 
<i 


B 
cS te 
OQ & 
~~ PS 
! { 
' ! 
{ i 
{ | 
mS 


or array item, or table item). 


Subroutine name. 
Filename. 
Alphabetic. 
iwumeric. 


FACTOR 2 
LI} FLG| ARR | TAG | SUE | PLN | ALE | NUM 


Seay eee es eae ie ca eae (ene a 


! 
t 
I 
I 
t 
a 
| 
i 


RESULT 
LIT | FLD | ARR | TAG! SUB] FLK | ALi | NUM 


@ XIqNeddv 


qOoVd 


L 


“Gd eTIeL 


*soapog AtTpy jo Areuung 


Simm for Negative Lalance Print-Out On Zero bealance* 
Decimal 


Domestic And kuropean Buropean Zero 
Point CR -— (Minus) | United Kingdom | Convention - I | Convention - J | Suppress 


1 Yes Yes No Sign -00 or O ,OC or 0 0,00 or O Yes 
2 Yes Yes No Sign Blanks Blanks Blanks Yes 
3 Yes No Sign .0O or O ,OC or O 0,00 or 0 Yes 
4 Yes No Sign Blanks Blanks Blanks Yes 
A Yes Yes CR -00 or O ,OC or O 0,00 or O Yes 
B Yes | Yes | CR | | Blanks | Blanks Blanks Yes | 
C Yes CR -00 or O ,OO or 0 0,00 or O Yes 
D Yes CR Blanks | Blanks Blanks Yes | 
J Yes Yes - -00 or O ,OO or O 0,00 or 0 Yes 
K Yes Yes - Blanks Blanks Blanks Yes | 
L Yes - .00 or © ,O or O 0,00 or O Yes | 
MN Yes - Blanks Blanks Blanks Yes 
| | | 


* Zero balances for the pBuropean Convention format are written in two ways, depending on the entry made in 
column 21 of the control card s}ecifications. 


** The X code performs no editing. 


*x* The Y code SUPPLESSES the leitmost zero only. ‘he Y code edits a three- to six-digit field according to the 
following pattern: 


If a data field of six digits is packed on aisc and the ¥ edit code is used with the data field, an error 
will occur. The problen is solved by woving the data field to another field. 


CNaddv 


q 


qovVd 


8 
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APPENDIX C. GLOSSARY OF TERMS 


ADDROUT file ; ; 
“A récord address file which is written out by the utility sort 


program. 


alphabetic characters . 
rs) phabetic EBCDIC characters and three other EBCDIC 
characters: #, $, and @. 


alphanumeric characters 
y or thé 256 EBCDIC characters. 


alphanumeric fields 
“fields for which a decimal—positions specification has not 
been made in the appropriate column of the specifications 
form. Alphanumeric fields can contain any of the 256 EBCDIC 
characters. 


alternate collating sequence 
A Ccharactér séquence in which the relative position of some or 
all alphanumeric characters in relation to the other 
characters is changed from the normal sequence used by the 
computer. 


alternating format — ; 
A method of déscribing two tables or two arrays which are used 


together, so that each item in the first table or array is 
associated with a corresponding item in the second table or 
array which gives additional information. 


alternating table or arra 
“The Second Of Luo related tables or arrays. 


arra | | 
A group of data items arranged systematically for ready 
reference. 


array file . 

TR Sequential input file which contains array entries specified 
by the programmer and is processed before program execution or 
during program compilation. 


asterisk fill . ; 
—“ASt€risksS Printed in place of leading zeros. 


binary format 
ormat in twos complement form wherein each field on disc 
must be either two or four bytes long. Two—byte fields contain 
a one—bit Sign followed by a 15-bit numeric value and can 
contain up to five decimal numbers. Four—byte fields contain a 
one-bit sign followed by a 31i~bit numeric value and can 
contain up to ten decimal numbers. 
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bi ch 
r Pe eave method of searching through a large table in 
ascending or descending sequence. 


bit 
A single binary ook in.a binary number, represented by O if 
it is negative, or 1 if it is positive. 


branch 
ipping backward or forward to an instruction other than the 
next one in the sequence. 


te 
=GS sequence of eight adjacent binary digits (bits) operated 
upon as a unit. 


chained file> 
isc Tile that is read randomly or loaded directly via the 
CHAIN operation code. 


character structure 
e€ unique combination of zone and digit punches in a card 
that represent a specific alphanumeric character. 


Code Formatter Phase 
€ phasé 0 € compiler in which error messages, the source — 
program, a memory map, external references, and entry points 
are listed and the object program is written out in 
relocatable format. 


Code Genération Phase 
59) “tne compiler in which the source program is 
rane lated into mechine language instructions and compile time 
tables and arrays are processed. 


collating sequence 


or special Sierectes tee Slated te alt others (eee hbpenie 2: 
a é * 


compile time table or arra 
A tablé or array Joadéd at compilation time and compiled along 


with the source program. 


cons tant 
y Unchanging information, such as a column header or title, 
that is entered by a specification. Constants are enclosed in 
apostrophes. 


control break 
A change in the control field information of two records which 
causes the control level indicator(s) to turn on and the 
operations conditioned by the indicator(s) to be performed 
before a new record is processed. 
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control card 
€é initial card in the RPG II source program deck. The card 
provides the compiler with the control information necessary 
to translate the source program into an object program, 


control field 
- £1é@id “to which a control level indicator (L1-L9) has been 
assigned to indicate the point at which specified operations | 
are to be performed. . 


control ou 
LOU records which all have the same infcrmation in the 


control field. 


control level indicator 
n indicator which is turned on to indicate that a change ina 
control field has occurred and operations are to be performed 
or information is to be printed. 


Cross-Reference Phase 
€ optional phase of the compiler in which cross—reference 
lists of file names, field names, and indicators are 
generated. 


demand file 
~Tilé Trom which selected input or update information can be 
sequentially read for calculations, via the READ operation 
code, as required. 


detail calculations 
The Sépmént Of the object program operating cycle in which 
data from a selected record is made available for processing 
and the matching record (MR) indicator is turned on or off. 


detail operations 
e firs segment of the object program operating cycle, in 
which heading and detail records are written and selected 
program indicators are set off. 


detail record | 
1 Output record containing information that comprises the 


subject matter of the report. 


device 
The input or output hardware used for a particular file. 


display file | 

ar tre—tomposed of information gathered from various fields 
used by a program. Through use of the DSPLY operation code, 
fields or records ina display file can be printed directly 
from storage and data can be keyed into a display field or 
record in storage. The console is the only device that can be 
associated with a display file. 
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domestic date format 
» where the numerics representing the month (NM), the 
day (D), and the year (Y) are separated by slashes. 


EECDIC 
Extended Binary-Coded—Decimal Interchange Code. 


EBCDIC notation | ; 
~The 256-—chéracter machine 5) code used in the MEMOREX 


System (see Appendix B, Table B1). 


edit code ; Pe, 
——K"oré—character code which causes a specific type of 
punctuation editing to be carried out on a numeric field. 


editi 

enenolne the legibility of a field by inserting special 
characters, including spaces, before or between the characters 
of a field. 


edit word 
e explicit character—by-character layout of an entire 
resulting output field, using replaceable and non-replaceable 
characters. Mit words are direct specifications which 
ee whether or not specific punctuation characters are 

n ° 


European Convention date format 
-MM.YY, where the numerics representing the day (D), month 
(M), and year (Y) are separated by periods. 


exception record | ; ; ; 
Tec which is written during calculation time. 


executive routine 
me portion of the compiler program which controls execution 
of the compiler program. The executive routine contains 


ix tput interface the .table._lookup roytines 
PoE EE ee ee amon” Oa phasés of compiler brboessinee ane 


external calculation operation 
An operation perform y a subroutine or program that has 
been compiled separately from the main RPG II program. 


external characters 
ec cters used in input and output data. 


fetching the overflow routine 
equest1 € overflow routine ahead of time to print several 
detail and total lines on each regular program cycle. 


field indicator 7 
“Arr Indicator used to test a named input field fora PLUS» | 


Minus, zero, or blank condition, or to halt a program so tha 
an error condition in the data can be checked. 
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field name 
unique name which identifies a particular field, array, or 


array item in an input record. 


field record relation indicator 

An indicator whose primary purpose, among a variety of 
specific purposes, is to relate a field name to a particular 
record type. 


file 
A collection of related records treated as a single unit. 


sae retned Or 

~~ ie describing the input, output, and update file 
types still further. The six designations are primary, 
secondary, chained, demand, record address, and table and 
array. 


filename 
unique name assigned to every file a program uses except 
compile time table and array files. 


file organization 


e€ arrangement of records within a file. The three types of 
organization are indexed, relative, and sequential. 


file translation 
e€ translation of any character code into another, such as 
the translation of an input CHaraeie®: code to an internal 
machine code. 


file types ) 
e four categories into which all. RPG II files fall: input, 
output, update, “and display. 


fixed dollar sign 
A do Sign which always has the same position in an edited 
field. 


fixed—length . : ‘ 
ThE “Sie length. All records in an indexed file must be 
fixed—length. 


floating dollar si | 
A aotier sign inserted before the most significant non-zero 
digit in a field. 


full table or arra 
A table or array in which all possible items contain data and 
nothing more can be added. 
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half-adjusting 
Rounding, oa adding a 5 to the number at the right of the last 
decimal position specified for a positive field, or —5 if the 


field is negative, then dropping all decimal positions to the 
right of the position specified for that field. 


halt indicator 
indicator which turns on to indicate that the program is to 
be stopped and an error message written for an error 
condition. 


heading record 
An output record containing identifying information which does 
not usually change from page to page, such as the report name, 
the date, and the column titles. 


hexadecimal notation . ; ; 
“A Ynber system written to the base—16 notation (see Appendix 
B, Table B1). 


housekeeping tasks 
asks performed prior to System entrance to the object program 


operating cycle, in which all files to be used in the prog 
are opened, pre-execution time tables and arrays are icaded. 
and the first page is output. 


index 
The portion of an indexed file which contains a key for each 
fixed-length record and the record’s location within the file. 


indexed file 
A disc file whose record locations are kept in a separate 
portion of the file called an index. 


indexing | 
A method of relative referencing by which an array item may be 
referenced by its location in the array relative to the first 
item. Indexing may not be used with tables. 


input 
All data files, records, and record fields used by the object 
progran. | 


input file 
the file from which a program reads its source data. 


input operations : 
€é segment of the object program operating cycle in which one 
input record is selected for processing, read, and identified. 


internal calculation operation ; 
An operation performed in the computer within the processing 
of a single RPG II progran. 
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internal. characters = 
Characters used for processing within the computer. 


inverted print option 
option use o determine the punctuation and format used 


for numeric literals and the date field, and the edit codes 
used on output. 


item 
A single element in a_ table or array which is coded as an 
entry in the specifications sheets. An item cannot extend to 
more than one record. 


last record indicator. betes : 
“Mi ITvaiCcator wWitth is turned on to indicate that a job is to 


terminate. 


literal 
The directly specified data used in an operation. It may be 
either alphanumeric or numeric. 


look-ahead field 
A réaturé” which enables the System to look at information on 
the next record available for processing in an input record, 
or on the record currently being processed in an update 
record o 


machine instruction 
A codé elémént, recognizable by a particular machine, that 
causes a predefined sequence of operations to be executed by 
the machine. 


machine Langues e | 
é set 0 characters, symbols, or signs, and the rules for 
combining them, that directly conveys instructions or 
information to a computer. 


match fields 
elected record fields in the primary file which are compared 
to fields from one or more secondary input or update files for 
a matching record. Records can be matched by comparing one to 
nine fields. 


matching record indicator 
ator woich turns on when a selected record field in 


the orem | file matches a field in one or more secondary file 
records. he indicator is used to condition calculation or 
output operations for a selected record with a match field. 


multifile processing ; ; 
é séléction of records for processing from a primary file 
and one or more secondary files. 
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non—replaceable characters . 
ose C cters of an edit word which will remain constant in 
the edited field or will be replaced by blanks. All characters 
except #, O, *, and $ are non-replaceable. 


noneresident_ program ; ; 
program or routine which is read in from an external 
library, rather than stored in memory. 


numeric Sree 
e icters O-9. 


numeric fields 
ields having a SeiaaannaTt Ti peiege ponies specification in the 
appropriate columns of the specifications forms. 


object pro 
tie set or machine language instructions gee lone from the 
compiler programs translation of the rammer’s RPG 
specifications. The object program sented: afl the machine 
instructions necessary to manipulate information from the data 
input files and produce output files and reports. 


off indicator 
indicator which reflects a negative condition (is set to 


on indicator 
5) indicator which reflects a positive condition (is set to 
FO). 


output ; 
fhe result or product of processing. 


output file | 
ile containing the records that a program writes, punches, 
or prints. 


output record 
record containing data that has been gathered, sorted, 
calculated, or generated during object program operation. 


overflow indicator | 
indicator which turns on to signal that the end of a page 
is near. 


overflow line 
€ point on a page or form at which overflow occurs and after 
which detail or total printing starts. 


overlaying 
ing input data in on top of data already in storage. The 
new data replaces only the amount of existing data that is 
over layed. 
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cked decimal format 
A format in which each byte of computer or disc storage is 
divided into two four—bit digit portions and no zone is used. 


PAGE, PAGE1, PAGE2 
Special words used to cause page numbering on output to start 
with a number other than 1, or to differentiate between page 
numbering systems for one to three different output files. 
PAGE is a four-position numeric field with no decimal 
positions. | 


*PLACE | 
A special word which causes output fields to be repeated 
without respecifying the field names. 


pre-execution time table or array 
A table or array loaded with the object program before an 
input files are read, calculations are done, or outpu 


functions are performed. 


rimary file 
[Ihe main file from which a program reads records. The program 
uses the primary file during multifile processing to control 
the order in which the records are selected. 


program cycle 
e cycle of operations through which one record must go to be 
completely processed. 


record address file ; 
input Tite t indicates which records are to be read from 
a disc file, and the order in which those records are to be 


read. 


record code characters 
racter codes used to identify each type of record for 


processing various operations. 


record agentityine indicator 
An indicator which is turned on to distinguish between record 
types or to indicate a record type that causes an error 
condition. 


record ke | 
e key field of each record, which is used in the index 
portion of an indexed file to identify the record. 


related tables or arrays | 
Two tables or two arrays which are used together, so that each 
item in the first table or array is associated witha 


corresponding item in the second table or array which gives 
additional information. : 
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relative file 
is¢ Tile whose records are called by relative record 


number, rather than by the sequence in which they were loaded. 


relative record number 
number assign to each record in a relative file to 
indicate the record’s position in the file in relation to the 
other records. 


replaceable characters : ; ; : 
Ss S > Of an edit word which will be occupied b 
digits of the edited field. The replaceable characters are }, 
O, *, and $. 


resident program 
program or routine which is stored in computer memory at all 
times, rather than read in from a library. 


resulting indicator 
An Tellentor that is turned on according to the result of a 
calculation operation. 


search word 
phanumeric or numeric constant, an array item, a field 
name, or a table name for which a match is to be found ina 
table or array that is being searched. 


secondary file = Bl : 
~ AL THEE Involved in multifile processing except the primary 
Ee 


sequential file : 
sequénti file in which records are ordered in the same 
sequence in which they are put into the file. 


short table or arra 
A table or qiray that is not full. 


source program 

“AIT” the “symbolic programing language entries coded by the 
programmer ona specific set of RPG II specifications sheets. 
The source program is then punched into cards to form the 
source program deck, which is in turn translated by the 
compiler into machine instructions for generating output files 
and reports. 


special device. ; 
Soo “L70aevice, other than the usual one used, which has been 


selected by the programmer and linked to RPG II by a 
user—written routine that enables data to be transferred for 
the device. See Section 3, “Special Device Support,“ for rules 
governing specifications sheet entries for the special device 
feature. 
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special file 
A file on a special I/O device linked to RPG II bya 
user—written routine that enables data transferred to or from 
that device. Special files can only be _ processed 
consecutively. See Section 3, eee Device Support," for. 
the specifications rules for special files. 


special word 
A word USéd as a field name to cause a particular action to be 
performed. The special words are PAGE, PAGEI, PAGE2 for re 
numbering; *PLACE for iterated fields; and UDATE, U 5 
UMONTH, UYEAR for the date format. 


split control field ao oo oy 
“Control TicId which is composed of two or more connected or 
unconnected fields on a record. — eS | 


spread cards ah ms | 
6a, which allows one or more transactions to be linked 
to a single header on the same card. 3 : 


standard 1/0 devices | 
e sc unit, the card punch, the card reader, the console, 
. the printer, and magnetic tape. : 7 


Syntax Phase 7 : ; | : 
The phase of the compiler in which all the input cards are 
checked for accuracy. | a | 

table | 

“TA” group of data items arranged systematically for ready 
reference. 


table file 

~ A Sé€quential input file, containing table entries specified by 
the programmer, which is processed before program execution or 
during program compilation. 


Table Overflow Phase : 
The phase oF the Compiler in which field names not resolved in 
the syntax phase are finally resolved. 


total calculations 
e calculation segment of the object program operating cycle 
invoked if a level break occurs. 


total output operations . ; 
~The s@gmént of the object program operating cycle in which all 
total records are written and end-of~job processing is 


initiated if a level break has occurred. | 


total record Rie 
ATT | record written out when a level break occurs that 
contains cumulative sums of the fields in detail records. 
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UDATE 
A special word whose specification produces a six-character 
numeric date in either domestic (mmddyy) or United 


Kingdom/European Convention (ddmmyy) format. 


UDAY 
A special word which may be used to obtain dates consisting of 


days only. 


UMONTH 
A special word which may be used to obtain dates consisting of 


months only. 


United Kingdom date format 
where the numerics reppecenuine the day (D), month 


(Mt), and’ year (Y) are separated by slashes. 


unpackec decimal fornat 
Ormat in which each byte of computer or disc storage holds 
one eight—bit character comprising a four—bit zone portion 


followed by a four--bit digit portion. 


update file 
isc file from which a program reads a record, updates its 
fields, and rewrites the record in the location from which it 
was read. 


UY EAR 
A Special word which may be used to obtain dates consisting of 


years only. 
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APPENDIX D. RPG IT ASSUMED RECORD AND DATA BLOCK LENGTHS 


If no LENGTH OF RECORD entry is made in columns 24-27 of the File 
Description Specifications Sheet, a warning message is issued and 
the compiler assumes the lenrth to be the maximum record leneth 
allowed for the file device. The maximum record lengths allowed 
for the various devices are: 


DISC 4096 
PUNCH | € 

TAPE 4096 
READ 80 
CONSOLE 120 
PRINTER 132 


If no LENGTH OF BLOCK entry is made in columns 20-23 of the File 
Description Specifications Sheet and the file device is other 
than dise or tape, the compiler assumes the length to be enual to 
that Specified in the LENGTH OF RECORD entry, columns 24—27. 


If the device is disc or tepes and the block lenrth is blank or 
equal to the record length, the compiler computes an interer 
blocking factor according to the following formula: 


tlocking factor = 256/(record length + 4) 
The block length is then computed as follows: 
tlock leneth = blocking factor X (record length + 4) 


The block and record lengths actually used by the compiler may 
differ from the entered or computed values for files assirned to 
printer, punch, or card devices. The compiler automatically adds 
1 to the block and record lengths of printer and punch files for 
carriage and stacker control, respectively. If a file is srooled, 
the compiler also adds 4 to the block length for spooling record 
headers. 
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APPENDIX E. RPG IT SUBROUTINE LINKAGE 


Since standard system linkage is used in RPG II, an RBG II 
rogram can call a COBOL, FORTRAN, or assembly language program. 
cause RPG II numerical data is always in packed decimal format 
and FORTRAN can only be used with binary or floating—point 
numerical data, however, some conversion of data would be 
required by the user. | 


A COBOL, FORTRAN, or assembly language program cannot call RPG ITI 
rograms because RPG II can never return to the calling program. 
or the same reason, an RPG II program may not be linked with 

another RPG II program——the results would be unpredictable. 


Linkage to an external subroutine from RPG II can be accomplished 
by either of two methods: through the EXIT operation, or by 
defining a SPECIAL file. 


Register six (6) holds the parameter list address used only 
for reading SPECIAL files. This list is not used by the 
EXIT operation. 

The save area address will be set in register seven (7). 


The return address will be in the first word of the save 
area. 


The format of the save area (pointed to by register seven) is as 
follows: 


Words Contents 

1 Return address. 

2 Previous save area address (always zero). 
3 | Status word (zero). 


4~11 Register save area. 
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SPECIAL FIIE PARAMETER LIST 


A parameter list 


pointed to by register 6 is for SPECIAL files 


only. The format of that list is as follows: 


Words 
1 
2 


46 
7 


10~—11 
12 


Contents 

length of list (always 11). 

Bits O-7 {function code) 
GET 


= 1 WHT 
= 4 OPEN 
= 5 CLOSE 
Bit 12 = 1 (variable length records are 
specified, and word 7 must point 
to the record size). 


Bit 12 = 1 (end-of-—file return address 
specified in word 9). 


Error return code -- set by the external routine 
(if non-zero the job will be stopped and the 
error return code will be printed out). 


Not used. 


Record size address — points to a one-word 
(two—byte) location which will contain the 
record size (bit 12 of word 2 must be equal 
to 1). For GET, the record size address and 
record size are set by the external program. 
For PUT they are set by RPG II. 


Not used. 


End—of-file return address (always specified —- 
bit 13 of word 2 will always be equal to 1). 


Not used. 


Address of record. fFor_GETI this address is 
supplied by the external routine. For PUT 
this address is supplied by the RPG II 
compiler. 
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APPENDIX F. CONTROL LANGUAGE STATEMENTS 


REQUIREMENTS 


To perform an RPG II compilation, an //EX (execute) Control 
Language Statement card with a PGM=RPG ember is necessary. 
minimum of four //DEF cards is then required to define the files, 
as follows: 


fers File 
//DEF ID=4$RGERRS,FIL=RPGERRMSG,STA=(P,I) Error message file 
//DEF ID=LIST File to which source 
listing is to go 
//DEF ID=INPUT File from which source 


input program comes 


//DEF ID=OUTPUT Library to which relo- 
catable object library 


is to be written 


In addition to these specifications, any or all of the four work 
files may be assigned to specific volumes to increase compilation 
speed. If they are not, they are automatically assigned to the 
System’s volume. 


The ID’s used for the four work files are: 


ID=MRTEXTO1 
ID=MRTEXTO2 
ID=MRTEXTO3 
ID=MRSIFIL 


The most efficient compilation is achieved by assigning the 
following ID‘s to different volumes: 


MRTEXTO1, MRSIFIL, and INPUT 
MRTEXTO2; MRSIFIL, OUTPUT, and LIST 
MRTEXTO1 and MRTEXTO3 


OUTPUT and INPUT may be on the same volume. 
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/{PAR CARD PARAMETERS 


The //PAR card is an optional CLS card available to the RPG II 
programmer for naming an_input and/or output library member and 
indicating to the compiler the'source input file's approximate 
size. This determines the size in the first allocation of the RPG 
II work files. | 


More than one //PAR card may be used. The parameters to be used 
on the card are IMEM=name, OMEM=name, and either NUM=nnnrn or 
NUMBER=nnnnn. 


IMEM=name 


this parameter specifies the name to be used for the input 
library member in the file defined on the //DEF ID=INFUT card. 
The parameter is required if and oy if the source input is in a 
library. The name may be up to six characters long. 


OMEM=name 


This parameter specifies the name of the library member in which 
the relocatable object module is to be placed. The name is for 
the output library member in the file defined on the //DEF 
ID=OUTPU card; it may be up to six characters long. Presence of 
the OMEM=name ensures that an RPG object program will be output, 
even though column 10 of the control card indicates otherwise. If 
the OMEM=name parameter is not used, the member name is taken 
from columns 75-80 of the RPG II control card (see Section 2); 
otherwise the name specified overrides the nare in the control 
card. If a member name is not specified_in either the parameter 
or the control card, the default name of RPGOBJ is used. 


NUM=nnnnn /NUMBER=nnnnn 


This parameter specifies the number of source statements to be 
compiled. The default value is 1000 source statements. If the 
value is incorrect, the program will still be compiled; however 
in a programs the correct value should be used to ersure 
that he initial work file allocations will not require 
extension. 
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LINKAGE EDITOR CIS SPECIFICATIONS 


The user must specify a linkage editor //DEF ID=INPUT card with 
the filename of the object library in which his RPG II program 
has been placed. He must also give the member name of the 
relocatable object module in a linkage editor //PAR PAR=name 
card. 


He ae either compile, linkedit, and execute his program all in 
one job, or he may perform each of the three steps separately, 
whichever is more convenient. If he chooses to do all three in 
one job. ste he can cordition his Jlinkedit on successful 
compilation (a0 fatal errors) with an //IF Control Language 
Statement, written as follows: 


//IF  CODE=F,G0=BOJ 


An F error code (fatal compilation error) then allows him to 
‘bypass the linkedit and execute steps. 


The following examples show the CLS used in com: iling an RPG 
program. Five common compilation situations were chosen for the 
examples. Whenever possible, default values are used for the RPG 
compiler parameters. Information peculiar to. an individual 
program being compiled is underlined 1n the examples. 


A complete description of cap baer CLS is provided in the Memorex 
publication Control Language Services—Extended. 


APPENDTX. F FAGE 4 
2202.003-0002 - 1/31/73 


EXAMPLE 1. CARD-TO~COMPILER COMPILATION 


MEMOREX Assembler Coding Form Punching Instructions 


Date 
Graphic Prog 
Punch Prog 


POT A ST LAN RS ED SPSS Senet LR RN SS 


Ae TACT AE INANE 


NAME OPERATION OPERAND 


a eaten a i teint tee NE NE 


§ 67 8/9 10 11 12 13 14 15 16 17] 18] 19. 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40.41 42 43.44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 


hearers snare eters oe oneal tres poooteeeementemes As mermmle 


' EIST 1 
Aa = = oe hu a a lh kk ok Se Se Oe a Se ee 
4 oO p 
wa a tt eh eae adc rn Or i er ne os 
WS. F IL =RPECERRANSG STA=CP,.L) 
Lt. fm, "78 Poe *, OY CY TY YS SO OO 
- 
DIEV PRINTER 
rr ht... x eine eh ed ee a a kh a a a et 
= 
F = TEMP -O08J5- 0.18, 91.2285. 2 BLK. =,.£.,.C,5.D. = N& 
2.0.2 7EN 6-08.) - 1.18, us 1 fo, M1 Molt Men ars , a Oe = Os 
o~ 
DEV. READER 
a a a Se Seay ae ee Cee Va Cane Ud ~_— + th eee ee ee ee ee ee een Se anand ted » . rs s a - . 
- 7 ae ee el eb kh aa 
4 40: St Ca CES SE ONO CT POSS Re SOS WOO” Gneaiy CODEN MOEN Cciir SUEY CD WOW Succes CONE SnranY Sounans Cnn? GOON GRSSOD Nene GOnens CES ORO EY RED” SOE COMER SOME CO CO OM coe, SOE 


oS ee ae Sn ne nO (ONS nESOS OOS EO SSSI OOOO SESS VE GOSSON neue’ Vener RESIN CET CREST CREE OSE WORRIES GREG! Inui SNOuns Wopnnn CONTENT NNOOSN OOOO Or Nectoos Lodes Doce [SSS CS Sc CO SNS) SSO OOOO UO Oooo oo De 


aoe 


a are a ae 


S 


a ee lh i a halle 


HTTPEEET TTR 
| 
: 
| 
| 


Example 1 deals with compiling an RPG source program deck read 
directly from the card reader. The RPG compiler parameters (IMEM, 
OMEM, tum) are assigned default values by the compiler. Wher the 
CLS shown in Example 1 is used, the following occurs: 


@ The compile listing is printed directly on the printer as 
specified by the 4th statement. 


0 he object module i laced in a tempo librar TEMPS 
GBF OPES need “and PasSeribed in the Sth ai brary Ete. 


name of the library member is taken from the RPC control 
card in the absence of the OMEM parameter. 


oe The 6th and 7th statements indicate that the RPG source 
program is in card format and is to be read directly from 
the card-reading device. 


® The source program is inserted in the CLS deck following 
the 7th statement. 


EXAMPLE 2. 
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CARD~ITO~DISC COMPILATION — 
MEMOREX Assembler Coding Form Posehtad iniesots Date 
Graphic Prog 
Punch Prog 
NAME OPERATION OPERAND 
1234567 89} 10, 11, 12,13, 14, 18, 16, 17] 1g 19 20, 21, 22.23 24 26 26 27 28 29 30, 31, 32,33 34 35 36 37 3839 40,41 42 43.44 45 46 47 48 49 50,51 52 53.54 55 5657 58 59 60 61 62,63 64 65 66 
L/J 88. (a a a ee ee oe ne os Se Ce ire Seer e Me A dd, 
i ee nee ee 
(DEF. | IS.) 6.1L A APG, ERRMSG, STA2(P.,2)............4 ee 
LLD.EF tt vey: 10-08) SALE, $122.56, ,NUM L008, OLKEL,LSD2NE 
vp “a yb aaa a a a a oo oo a co 1 Oe ee en a ae ee es ce or 
plat CAS A) 7) Sr fee ana, ans eee SO Winer CRP ERR (aT TRE Bee CGY MOET CR LEO PL Noe Ca CO ee Coy CRE ST Ce ee ee — a’ 


4 ak a a oe oo oe | oe a ee oe co a 


a ee ee See See ene ee Neen ane Bt a a oe oo Ce ne 


| 


Fxample 2 deals with compiling an RPG source program placed in 
the aaa and onbee NU by the job monitor. The RPG compiler 


parameters 


compiler. 
occurs: 


(IMEM, 
When the CLS oe in Example 2 is used, the following 


M, NUM) are assigned default values by the 


e The compile listing is printed directly on the printer as 
specified in the 4th statement. 


e The object module is placed in a temporary library (TEMP- 


OBJ-~LIB) 


deers and described in the 5th statement. The 


name of the library members is taken from the RPC cP Ere 
card in the absence of the OMEM parameter. 


e The 6th and 7th statements specify that the source module | 


to be spooled from the jobstream into the file called 


is 
RPG—SOURCE'. 


e The source program is inserted in the CSL deck following 
the 7th statement. 
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EXAMPLE 3. DISC COMPILATION USING DEFAULT VALUES 


10 11 12 13 14 15 16 17] 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40.41 42 43 44.45 46 47 48 49 50 51.52 53 54 56 56 57 58 59 60 61 62.63 64 65 66 


OPERATION fl 
1 2,34, 5, 6,7, 3[9| 


pn a en ND SS SET 


Punching Instructions Date, 


Assembler Coding Form ee Dl 
; raphic Prog 
Punch Prog 


aT AR 


OPERAND 


Ss anne ON Sane Cae SO OD SO CO ee oes, See EE Pr CO Se Oa Oa CO aoe ces Oe SE ron 


a ay Be te Mt 


RIRS..FLL=RPGERRNSG, STACEY 0 
EV SPR UN TER 3 his Ser Sn esol gi te 
LO LEMP- ~h1B,,S.1.22.25.6., NU Nef 900,,.8b,K>4,,.6.5.D.2,N, 

ALP SSVSSRCUTB STASCE TD oe ee ark ee ea Bes ee ued 


: neers we a dt 


os oo fe hd Rk Bk 


whee a et hr ln 


MEMOREX 
pe | 
ade 


a 


Example 3 deals with compiling an RPC program previously stored 
on disc. The RPG compiler parameter IMEM is used to identify the 
source module to be compiled. The parameters OMEM and NUM are 
assigned default values by the compiler. When the CLS shown in 
Example 3 is used, the following occurs: 


The compile listing is printed directly on the printer as 
specified by the 4th statement. 


Thé object module is placed in a temporary library (TEMP- 
OBJ-LIB) named and described in the 5th statement. 


The 6th statement identifies the System source library 
($SYSSRCLIB) from which the source program is read. 


The compiler parameter IMEM is used in the 7th statement 
to identify the source module to be compiled. 


The //EQJ card concludes the compilation deck. Since the 


source Bronte was previously stored on disc, it is not 
included in the CLS deck. 
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EXAMPLE 4, DISC COMPILATION USING SPECIFIED PARAMETERS 


— 


| 


MIEMIOIIS Assembler Coding Form | Punching Instructions Date 


Se ne 


1234567 8|9| ue 11 12 13 14 ) 16 17} 18 18 20 21 22 23 24 25 26 27 28 29 30 31-32 33 34 35 36 37 38 39 40,41 42 43 44 45 46 47 48 49 50 51 52 53 54 65 56 57 58 59 60 61 62 63 64 65 66 


ee er ee Sore Ca 


j a er we ge 8 aoa ais 
Kf: ap ow - 
as a S f 
Be ‘ 
~ » t 
PP EE an 2 Hib: 2UT.ebr Fibs TG f= OB - ‘LIB.. SILZ-256. ALUM * B000,,.81.K pena 
(PAR. . _| |6 | © 
“ 7 MEM 
DEF | | D AG 
/D.EF CL STA<(P.,. 
‘ ees ES | LuaSSYSSRCUTB,S a 4 ob. h bow. rr ee ee Oe a ee Sr ree y a ee 
y v eee nai 
A vi wf 
a a gees ef Oe _| a a cr oe Se oc anc See Sea SES Sepa Sy A ST SO a OY SE a RR RR Se SO ae be A OA ea Gad es ae oe, ee a oon 
. 
a eS ee CT SO SO SONS Sn See SY es COE ER SEN on ro Ps A ce a ore coe ce Sa 
a tk kg a kk tt | 
Pee ae ae Se ae Se oe a ce cr Se ce a ce ce Se Si on cee See Sen en Ogee See Sa ae 
i eo i ae eae aaa 
a oe ae 


RPG program previously stored 
on disc. All RPG aneters i OMFN, NUM) are specified by 
the Bp aaa rather than assigned default values by the 
compilers 


Example 4 deals with compilin 


e The 3rd statement specifies the number of statements in 
the source program to be compiled. 


e The 5th, 6th, 7th, and 8th statements are optional DFF 
statements used to place the RPG compiler work files on 
specific DASD volumes. If these statements are not 
included, the System assigns the volumes to be usec for 
allocation. | 


e The compile listing is printed vipsetiy on the printer as 
specified by the Sth statement. — 


e The oO LEBSS module is placed ina _ temporary oe (TRMP— 
OBJ~LIB) named and described in the 10th statemen 


e The compiler parameter OMEM is used in the 1lith state- 
ment to name the object eodurs stored in the temporary 
library. , | 
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e The i2th statement identifies the System source library 


($SYSSRCLIB) from which the source program is read. 


Compiler parameter IMEM in the 13th statement identifies 
the member name of the source module to be compiled. 


The //EOJ card concludes the compilation deck. Since the 
source program has been previously stored on disc, it 
1s not included in the CLS deck. 
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EXAMPLE 5, COMPILE, LINKEDIT, AND EXECUTE 
a een ee 


MEMOREX Assembler Coding Form : | Punching Instructions Dat, 


Graphic 


Punch 


OPERAND 


SSS 


MEMOREX Assembler Coding Form 


» 


OPERATION 


a kk tt he oh ‘ 


Example 5 is a three-step job. It deals with compiling, 
linkediting, and executing an RPG program. 


The 1st through the 8th statements make up the compilation ste 
RPG parameters IMEM and NUM are assigned default values. CLS 


specifies the following in Example 5: 


e@ The compile listing is printed directly on the printer as 
specified by the 4th statement. 


The 
They 


The 
step 
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The object module is placed in a temporary library (TEMP- 
CBJ~LIB) named and described in the 5th statement. 


The object module is pave the library member name 
TSTMOD in the 6th statement. 


The 7th statement causes the source program to be spooled 
from the jobstream into the file called RPG—SOURCE. 


The 8th statement instructs the System to skip the link- 
edit and test-—execute steps if the compile step fails. 


9th through the 15th statements make up the linkedit step. 
specify the following: 


The module output (linkedited poeran is to be stored 
in a temporary library (TEMP LOAD LIB) named and 
described in the 12th statement. 


The 13th statement gg taba that the object module to be 
linkedited is input from the temporary library allo- 
cated in the 5th statement. 


The 14th statement gives the name of the object module 
to be read as input to the link editor. 


The 15th statement instructs the System to skip the test-- 
execute step if the linkedit step fails. 


16th through the 25th statements make up the test-execute 
and complete the job deck. They specify the following: 


The 16th statement names the compiled and linkedited pro- 
gram to be executed. The name given is the same as that 
used in the 14th statement. 


The filename specified on file description cards in the 
RPG source program must be used as the identification 
(ID=filename) on the //DEF card for object program 
execution. 


The CLS required for program execution is inserted in the 
job deck after the 16th statement (lines 17 and 18). 


The source program to be compiled is inserted immediately 
after the last Control Language Statement required by 
the test-execute step (linés 19 and 20). 


The data to be processed by the test program is inserted 
last in the job deck (lines 22 and 23). 


The entire deck is completed by an end-of—job (//FOJ) 
card. 
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APPENDIX G, ERROR MESSAGES 
FORMAT 


All error messages produced on the 132~character printer are 
preceded by a  fourteen-character program—generated code 
consisting of a standard éight-character identification, a blank, 
a letter which indicates either a warning (W) or a fatal error 

| (F), and four more blanks. A fatal (F) error indicates that the 
object code may not be executable; in such cases the line is 
ignored, and in the majority of cases the source deck should be 
corrected and recompiled. A warring (W) message indicates that 
the object code may produce invalid results, even though the code 
is executable. The compiler attempts to recover from errors 
producing warning messages and continues processing, whether or 
not recovery is successful. 


| Bach message is printed immediately following the line on the 
source listing to which it applies. The format of the printed 
messages is as follows: 


Characters Contents 

1-2 The letters RG. 

3~4. The number of the overlay in which the error 
was encountered. 

5-7 The error number within the overlay. 

j 8 Zero (C). (Reserved for future use. ) 

9 Blank. 

10 W (warning) or F (fatal error). 

11-14 Blanks. 

15-84 Error message text. 


LIST OF MESSAGES BY OVERLAY NUMBER 


CS DRE gS PRN RAL IPE RS EIST TT LILIES POLE STREET eA GC NEE RETEST EE PGE DADE SEPIES 


The error messages on succeeding pages are arranged according to 
the overlay area in which the corresponding error is encountered. 
Error messages do not eppear for some overlay areas because 
error-producing conditions do not arise. In the following overlay 
area list, those areas which do not produce error messages are 
indicated by an asterisk preeeding the overlay number. 
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Number Overlay Error Ranges 
* 1 Compile Executive ,Program 
2 Hea, ae Card Scan (Control Card) RGO20010-0310 
3 File Description Scan RGO30010—0900 
4 File Extension and Line Counter Scan RGO40010—0610 
6 Input Specifications Scan RGO60010—0910 
7 Calculation Specifications Scan RGO70010~—0570 
8 Output Specifications Scan RGO80010—-0640 
= § Table Overflow 
* 10 Input/Output Generation 
11 File Extension/Line Counter Generation RG110010-0120 
* 12 Record Handling Cenerator 
13 Calculation Generator RG120600—1000 
14 Output Generator RG140010-—01 50 
15 Code Formatter RG150010—0040 


Error messages are listed sequentially by overlay number, 
berinning on the next page. Each successive overlay error message 
list begins a new page. Error code numbers are listed at the 
left, followed by F or W (fatal error or warning) and the text of 
the error message. 


Variable fields within error messages are represented by the 
quantity of X’s or N’s required to satisfy the leneth of the 
field. X’s represent alrhanumeric fields and N’s represent 
numeric fields. 


(Execution-time error messages and compile-time diagnostic 
messages issued to SYSOUT ere listed and described in Appendix H, 
"Operational Environment.") 


OVERLAY 2. 


RGO20010 F 
RGO20020 W 
RGO20030 W 
RGO2O0O40 W 


RGO20050 W 
RGO20060 W 
RGO20070 W 


RGO20080 W 
RGO20090 W 


RGO20100 W 
RGO20110 W 


RGO2O0120 W 
RGO20130 W 
RGO20140 W 
RGO20150 W 


RGO20160 W 


RGO2ZO017O W 
RGO2O180 W 


RGO20190 W 
RGO2ZO200 W 


RGO20210 W 
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HEADER CARD SCAN (CONTROL CARD) 


No source cards for RPG II program 

No header card. Assume default specifications 
Columns 7-9 should be blank. Assume blank 
narnia object output ony in column 10. Assume 


Column 11 should be blank. Assume blank 
Columns 16-20 should be blank. Assume blank 


Inverted print entry in column 21 is not D,I,J or 
blank. Assume blank 


Columns 22-25 should be blank. Assume blank 


oe seq. oy in column 26 is not S, T or 
blank. Assume blan 


Columns 27-33 sKould be blank. Assume blank 


Table lookup entry in column 34 is not B or blank. 
Assume blank 


Columns 35~39 should be blank. Assume blank 
Error deleted 


Error deleted 


Invalid sign process entry in column 40. Assume 
blank 


Forms peer One ce entry in column 41 is not 1 or 
blank. Assume blan 
Column 42 should be blank. Assume blank 


File translation entry in column 43 is not F or 
blank. Assume blank 


Columns 44-46 should be blank. Assume blank 


Suppress skip to channel 1 (column 47) is not S or 
blank. Assume blank 


Columns 48-51 should be blank. Assume blank 


B) 


RGO20220 W 


RGO20230 W 


RGO20240 W 
RGO20250 W 
RGO20260 W 


RGO20270 W 


RGO20280 W 


RGO20290 W 


RGO20300 W 
RGO20310 W 
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Debug entry in colum 15 is not. 1 or blank. Assume 
blank 


Invalid core size needed to execute entry in cols 
12-14. Assume blank 


Error deleted 
Error deleted 


Invalid program identification entry in columns 
75-80. Assume RPGOBJ 


Cross reference list entry in col 52 is not X or 
blank. Assume blank 


Carriage control t entry in col 53 is not L or 
blank. Assume blank . 


Ignore arithmetic overflow (col 55) is not T or 
blank. Assume blank 


Columns 56~73 sKould be blank. Assume blank 


Sequence check ouery in column 54 is not N or 
blank. Assume bla 


4 
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OVERLAY 3. 


RGOSO0010 


F 


RGOSO0020 F 


RGOZ0030 


RGOS0040 


~RGOSOO50 


RGOZ0060 


RGOZCO7O 


RGOZO080 


RGOZO0090 


RGO3O100 


RGOS0110 


RGOSO120 
RGOZO130 
RGO3O140 
RGO30150 
RGOZO160 


RGO30170 


FILE DESCRIPTION SCAN 


Too many file description specs. lines used. 
Ignore extra specs. 


Filename in columns 7-14 is missing or invalid 


Filename has already been used. Ignore current 
definition 

Device name in columns 40-46 is missing or invalid. 
Assume disc 


Input card file may not be spooled if block and 
record lengths not &0 


Dual printer carriare is not Se 
device is printer 


Assume 


File type in column 15 is not I, 0, U, C or D. 
Assume default for device 


File type in col 15 invalid for device. Assume tvre 
default for device | 
Invalid file designation (col 16). Assume desir. 
default for file type 

File desig. invalid for device. Assume desir. 
default for file type 

A primary file has already been desirnated. Assume 
secondary file | 
A record address file has already been defined. 
Ignore current file 


More than 45 demand and/or chained files defined. 
Ignore those over 15 


Processing mode entry in column 28 is not L, R or 
blank. Assume blank 


Processing modes L, R valid for disc device only. 
Assume col 28 blank 


Random processing mode invalid for demand file. 
Assume col 28 blank 


R or L processing mode invalid for file desir. or 
device. Assume blank 


RGOSO01€0 


RGOZ0190 


RGO30200 


RGOS02 10 


RGO30220 


RGOZ0230 


RGO30240 


RGO30250 


RGOZ02 60 


RGO50270 


RGO30280 


RGO30290 


RGO30300 


RGOS0310 


RGO30320 


RGO30330 


RGOS0350 
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Limits processing mode invalid for chained file. 
Assume random mode— 


Blank processing mode invalid for chained file. 
Assume random mode od 


Fnd—-of-file code in col 17 not E or blank. 
E if valid for file 


Assume 


FEnd—of—file code in column 17 is not E or blank. 
Assume blank 


E end—of—file code invalid for file type and proc. 
mode. Assume blank 


Seauence entry is not A, D or blank. 


Assume sequence 
of previous file | 


A or D sequence invalid for file type or desirnation. 
Assume blank 

Length of record nissing or invalid. Assume default 
length for device 

Length of record invalid for device. Assume default 
length for device 


Invalid length of block entry. Assume equal to 
length of record 

Length of block should be a multiple of length of 
record + 4 for device 


Block length should equal record length for this 
device. Assume equal 

Invalid record address type in col 31. Assume A if 
mode=L, else blank 


K entry in column 31 for record address type invalid. 
Assume type=A 


A record address type invalid for non—dise device. 
Assume blank 


Record address type invalid for file type and desis. 
Assume blank 


Record address type invalid for limits processing 
mode. Assume type=A 

Invalid file organization entry in column 32. Assume 
blank 


RGO30360 W 


RGO30370 W 


RGOZ0380 F 


RGO30390 W 


RGOZ0400 W 


RGOZ0410 F 


RGOZ0420 F 


RGO304350 F 


RGO30440 W 


RGOZ0450 W 


RGO30460 F 


RGO30470 F 


RGO30480 W 


RGO30490 W 


RGOZ0500 W 


RGOZ0510 W 


RGO30520 W 


RGO30530 W 
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Indexed file org. invalid for non—disc device. 
Assume column 32 blank 


Linits mode invalid for a non-indexed file. Assume 
indexed (col 32=I 


ADDROUT file must be an input record address file. 
Assume col 32 blank 


File org. entry invalid for type and desig. or 
device. Assume blank 


File org. entry must be blank or 1-9 for non-disc 
device. Assume blank 


pee Org: entry_invalid for proc. mode or RA type 
file. ssume blank 


Starting loc. of key field (cols 35-38) missing or 
invalid. Assume 1 


Starting location of key field is O or exceeds record 
length. Assume 1 


Length of RA field (cols 29-30) invalid for an 
ADDROUT file. Assume 4 


ene tr ce record in cols 24-27 must be 4 for an 
ADDROUT file. Assume 4 


Length of key or RA field is missing, invalid or over 
99.” Assume 


Length of key or RA field plus start loc. of key 
exceeds record length 


Columns 29-30 should be blank with these specifica~ 
tions. Assume blank 


Columns 35-38 should be blank with these specifica- 
tions. Assume blank 


Overflow indicator should be blank for non—printer 
file. Assume blank 


Invalid overflow indicator entry in columns 33-34. 
Assume blank 


Overflow indicator in columns 33-34 already defined. 
Assume blank 


ExtenSion code in column 39 is invalid or E for 
print file. Assume IL 
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RGO20540 W Extension code in column 39 is not E for table or RA 
file. Assume E 


RGO20550 W Extension code in column 39 invalid for device or 
desig. Assume blank 


RGOZ0560 W Hi-le eve} sturectory valid for random indexed file 
only. 


RGO30570 W Tape labels entry (col 53) invalid or invalid for 
device. Assume blank 


RGO30580 W Columns 54-59 should be blank. Assume blank 


RGO30590 F Error deleted 


RGO30600 W Tape labels entry should be blank for special device. 
Assume blank 


RGOZ0610 F Error deleted 


RGO30620 W Invalid index buffer size entry in columns 60-65. 
Assume blank 


RGO30630 W Inv. index buf. size value. Assume blank if randon, 
sys default if seq. 


RGOZ0640 W File addition entry in column 66 is not A or blank. 
Assume blank 


RGO30650 W File addi tion should be blank for non-—disc device. 
Assume blank 

RGO30660 W File addition should be blank for relative, RA or T 
file. Assume blank 

RGO20670 W Column 67 should be blank. Assume blank 


RGOZO0680 W Tape rewind entry (col 70) invalid or invalid for 
device. Assume Fhe 


RGO30690 W Invalid file condition entry in columns 71-72. 
Assume blank 


RGO30700 W ries condition only in cols 71-72 invalid for file 
type. Assume blank 


RGO20710 W Columns 73-74 should be blank. Assume blank 


Nels W File format entry in column 19 missing or invalid. 
Assume F 


RGOZ0730 W 


RGO30740 W 
RGO30750 W 


RGO30760 F 
RGO30770 W 
RGO30780 F 
RGO30790 F 


| RG030800 w 
RGOZ0810 W 


RGO30820 W 
RGO20830 F 
RGO30840 F 
RGO30850 F 
RGO3S0860 F 
RGO30870 F 
RGOZ0880 F 
RGO30890 W 


RGO30900 W 
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File format entry in column 19 invalid for device. 
Assume F 


Columns 68-69 should be blank. Assume blank 


No primary file specified. Assume first secondary 
file is primary 


No file description specifications 
Error deleted 
Error deleted 


Block length is more than 255 times record length. 
Assume block=record 


Error deleted 


High-level directory size entry in cols 47—52 not 
11-9999. Assume blank 


Index buffer size (cols 60-65) missing. Assume 
SYSGEN default value 


RA~processed file is not compatible with RA file 
(keys vs. red. nos.) 


More ‘than one record address—processed file has been 
defined 


i file is not compatible with RA—-processed file 
keys vs. red. nose} 


Key length of RA file does not equal key length of 
RA-processed file 


Record address--processed file defined but no RA file 
defined 


Record address file defined but no RA-processed file 
defined 


Labels entry in column 53 should be S for disc file. 
Assume $ 


I record address type (col 31) invalid for file 
device. Assume blank 
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OVFRLAY 4. FILE EXTENSION AND LINE COUNTER SCAN 


RGC40010 
RGC40020 


RGO40030 


RGO40040 


RGO40050 


RGO400€0 


W 


RGC40070 pF 
RGC40080 fF 


RGO40090 


RGO40100 
RGO40110 
RGO40120 


RGO40130 


RGO40140 
RGO40150 


RGO40160 
RGO40170 
RGOQ40180 


RGO40190 


Columns 7—-tO should be blank. 


Invalid FROM filename. 
not blank; else RA 


Assume blank 
Assume T file if cols 27-57 


FROM filename undefined. 


Assume T file if cols 27-57 
not blank 


FROM file neither RA nor T file. 
27-57 not blank 


“E” not specified on file description specifications 
for FROM file 


Assume T if columns 


An RA file has already been described for this 
program 


Filename of RA—processed file is missing or invalid 


Filename of RA~processed file has not been defined by 
file specs. 


RA-processed file is not a primary, secondary or 
demand file 


RA~processed file is not an input or update file 
RA file is being used to process more than one file 


Columns 27-57 should be blank for an RA file. Assume 
blank 


TO file record length is not long engough for T/A 
items. Ignore TO file 


Invatid TO filename for table or array. Assume blank 


zi air enane for table or array is undefined. Assume 
lan 


TO file for tatle or array is not an output file. 
Ignore TO filename 


T/A name ater or invalid. Assume table if name or 
alt. name=TABXX 


More than ep evies and arrays defined. Ignore 


tnose. over 


Invalid entry for number of items in each record, 
cols 33-—35. Assume 1 


RGO40200 
RGC40210 


eee 


RGO40230 | 


| RGO40240 | 


RGC40250 


RGO40260 ! 


RGOQ40270 


RGC40280 


RGO40290 


RGC40300 


RGOQ40310 


RGC40320 F 
RGO40320 W 


| RGO40340 


RGC40350 F 


RGO40360 


RGO40370 
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No. of items/rcd entry missing for pre-—exec or comp 
time T/A. Assume 1 


Invalid ony for no. of items per T/A. Assume 
equals no. items/rcd. 


No. of items per T/A_less than no. of items per 
record. Assume eqtal 


Invalid entry for length of item in cols 40-42 or 
52-54. Assume 1 


FROM or compile file record length is not long 
enough for T/A items 


Packed/binary entry is not blank for compile time 
T/A. Assume blank 


Invalid gd as or binary field entry in col 43 or 55. 
Assume blank 


Unpacked Ls Ae binary item cannot be less than 4. 
Assume length 5 


Unpacked length of binary item is not 4, 5, 9 or 10. 
Assume Teneth 10 y » “9 


Invalid decimal positions entry. Assume O if P, B or 
length LE 15 


Decimal pos. ertry not numeric for packed or binary 
item. Assume C 


Length of item is greater than 255. Assume file 
record length cr obs | 


Length of numeric item is greater than 15. Assume 15 


Invalid sequence entry in column 45 or 47. Assume 
blank 


Duplicate table/array name. No storage assigned 


Table or array is too large. Allow 256 bytes for 
table or array 


Data area used up. Table/array storage allocation 
will be in error 


No extension specifications on card 


RGO40380 F 
RGO40390 F 


RGO40400 F 
RGO40410 F 


RGO40420 F 


| RGO40430 Ww 
RGO40440 W 
RGO40450 F 
RGO40460 F 


RGO40470 W 
RGO40480 W 


| RGO40490 F 
RGO40500 w 
RGO40510 W 


RGO40520 W 


RGO40530 W 
RGO40540 W 


RGO40550 W 
RGO40560 W 


| RGO40570 W 
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Specifications missing for first table/array. Ignore 
alt. T/A specs. : / 4 : 


Alt. aTTSY camnot be specified for exec. time array. 
Ignore alt. array 


Alternate table or array name is missing or invalid. 


First table/array and alternate table/array not both 
tables or arrays 


More hen 60 tables and arrays defined. Ignore those 
over 


No extension specifications found for file XXXXXXXX 
No line counter specifications on card 
Filename in columns 7-14 is missing or invalid 


Filename in columns 7-14 has not been defined by file 
descr. specs. 


"L” not specified on file description specifications 
for this file 


Line counter specifications have already been proces- 
sed for this file 


File is not a print file 
Line number entry is not a valid number or blank 


Line number entry is not within the range 1-255. 
Assume 255 


The same line number is assigned to more than one 
channel 


Channel number entry is not O1-12, OL or FL 


More than one line number is assigned to channel 01, 
12 (=O1L) or FL 


Overflow line number is greater than form length. 
Assume equal 


Chan 1 line is not less than overflow line. Assume 6 
if CL GT 6; else 1 


No line counter specifications found for file XXXXXXxX 


RGO40580 W 


RGO40590 W 


RGO40600 F 
RGO40610 W 


RGO40620 W 
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Decimal positions entry is frreater than item lenrth. 
Assume equal 


Non-blank entries follow a blank line number. Such 
entries ignored. (NOTE: A blank line number will be 
allowed in columns 15-17 if columns 18-19 are blank 
or FL and column 53 of the control card is L) 


Too many table and array names used. No more storage 
assigned 


Columns 18-19 should be Fl. when I, spec’d in Col. 53 
of the control card 


Blank line number for FL, @L and/or 01 channel. 
Assume default values 


OVERLAY 6. 


me oi om Eee 


RGO60010 


RGO6OO2O 


RGO60030 


RGO60040 
RGO6O0050 


RCOEOO06O 


RGOQ60070 


i 
F 


RGO60080  W 


RGO6O090 
RGO60100 
RGC60110 
RGO60120 
RCO601 40 
/ RGO60140 
RGO60150 
RGO60160 


RGO60170 
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INPUT SPECIFICATIONS SPAN 


Length of control level differs from previous def. 
Assume prev. def. 


Invalid filename entry in columns 7-14. 


Assume 
previous filename 


Filename has not been defined by file specs. Assume 
previous filename 


File is not an input file. Assume previous filename 
Filename has already been used on input specs. 
Ifnore previous use 


Filename missing from first input spec. 


Assume inrut 
sequential file 


No. of match fields on record less than previous def. 
Assume Ist def. 


Field definitions missing for vrevious record 


Invalid filename entry in columns 7-14. 


Assume 
previous filename 


AND/OR line illegal following look-ahead record 
identification 


AND/OR line illegal following trailer record 
identification 


AND/OR line does not follow a record identification 
line 


AND line may not have a record indicator in cols 1°9- 
20. Ignore ind. 


Stacker select in col 42 should be blank for AND 
line. Assume blank 


No. and option (cols 17-18) should be blank for AND 
line. Assume blank 


Numeric sequence no. invalid for chained file. 
Assume alpha sequence 


Seauence numbers (cols. 15-16) not in ascending 
order. Assume they are 


RGO60180 W 
| RGO60190 Ww 
RGO60200 W 
RGO60210 W 
RGO60220 F 
RGOE0230 W 
RGO6O240 W 
RGO60250 F 
RGO6O260 W 
RGO60270 W 
RGO60260 F 
RGO60290 W 
RGO60300 W 
RGO60310 F 


RGO60320 F 
RGO60330 W 


RGO60340 F 


RGO60350. F 
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First numeric seq. entry for file is not 01. Accept 
number specified 


Number ent in col 17 should be 1 or N for numeric 
sequence. ssume N 


Option in column 18 is not O or blank. Assume O for 
numeric sequence 


Invalid sequence entry in columns 15-16. Assume 
aiphabetic 


Atpha sequence in cols 15-16 invalid after numeric 
seq. Assume numeric 


Number, option (cols 17-18) not blank for alpha 
sequence. Assume blank 


Indicator in cols 19-20 is not a valid record 
indicator. Assume valid 


Invalid record indicator in columns 19-20. Ignore 
indicator 


Spread card header with numeric sequence must have 
N in column 17 


Look-ahead specified with spread card trailer. 
Assume valid 


More than _one trailer specified for spread card. 
Ignore all but first 


Invalid specs. made for TR or look-ahead. Assume 
invalid cols blank 


Cols 43-70 should be blank for record identifying 
line. Assume blank 


More than one set of look-ahead fields defined for 
file. Use first set 


Look—ahead fields invalid for chained or demand file 


Look~ahead fields invalid with numeric sequence. 
Ignore look-ahead 


Position entry in columns 21-24, 28-31 or 35-38 
missing or invalid 


Position entry in cols 21-24, 28-31 or 35-38 is not 
within record size 


RGO60360 W 


RGO60370 W 


RGO60380 W 


RGO60390 W 


RGOE0400 W 


RGO€0410 F 


RGOE0420 F 


RGOE0430 F 


RGOE0440 F 


RGOE0450 F 


RGOE0460 F 


RGO60470 F 
RGO60480 F 
RGOE0490 F 


RGO6O500 F 
RGO60510 F 
RGO60520 F 


RGOQ60530 F 


RGO60540 F 
RGOE0550 W 
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“NOT” e in column 25, 32 j ot No 
ae ets Se ee A TO 


C D ent in colum 26 or 40 is not C, Z or 
p/2/R entry, » 39 : 


AND/OR line follows line without record codes. 
Assume new record spec. 


Stacker select entry in col 42 invalid for file 
device. Assume blank 


Packed or bina field ent in col not P, Bor 
biank, Assume Vlank a 7 if 


Beginning field loc. entry in cols 44-47 missing 
or invalid. Assume 1 


Ending field location entry in columns 48-51 missing 
or invalid 


Ending field_location in columns 48-51 is greater 
than record length 


Beginning field location is greater than ending field 
location 


Invalid decimal positions entry in col 52. Assume 
zero dec. positions 


Dec. pos. ent exceeds field length. Assume field 
length=dec. pos. 7 . . 


Binary input field length is not 2 or 4. Assume 4 
Numeric field length is greater than 15. Assume 15 


Alphanumeric field length is greater than 255. 
Assume 255 


Invalid field name in columns 53-58 
Field name in columns 53-58 is missing 


Table name may not be used as field name in columns 
53-58 


Date field is being redefined or page is being 
redefined illegally 


Look-ahead field is being redefined 


Dec. pos. for array item differs from def. on E spec. 
Assume FE def. 


RGO60560 F 
RGO60570 F 
RGOE0580 W 
RGOE0590 W 


RGO6O600 F 
| RGOEO610 W 
RGO60620 F 


RGOE€0630 F 
RGOEO640 F 
RGOE065O W 
RGOE0660 W 
RGO€0670 W 


RGOEO6EO F 


RGO60690 W 
RGO60700 F 
RGO60710 W 
RGO60720 W 


RGO60730 F 
| RCO6O740 F 
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Array field length is not a multiple of item length 
on E spec. 


Binary input specified for array items more than 10 
digits long 


Number of array items on input record exceeds number 
of items in array 


Alpha field specified as packed or binary. Ignore 
P or B entry 


Invalid array index. Ignore index 
Error deleted 


Array index is greater than the number of items in 
the array 


Array index name has not been previously defined. 
Ignore index 


Array index is not a numeric field with zero dec. 
pos. Ignore index 


Field name has an index but is not an array name. 
Ignore index 


Invalid field record relation indicator (cols 63-64). 
Ignore indicator 


Invalid control level indicator in columns 59—60. 
Ignore indicator | 


Data area used up. Storage allocation will be in 
error 


Control or match field specified both as alpha and 
num. Assume numeric 


Split control fields must be defined on consecutive 
lines 


Fields without record relation indicators should 
precede those with 


Record rel. ind. used with match or control field not 
prev. defined 


Control field length is greater than 255 
Match field entry in columns 61-62 is not M1-—M9 


RGO60750 F 
RGO60760 F 
pens F 
RGO€O7T80 F 
RGO60790 F 
RGOE0S800 F 


RGOE0810 F 
RGO60820 W 


RGOQ60830 F 


RGOE0840 F 
RGOE0850 F 


RGO60860 W 
RGO60870 W 


RGO60880 W 
RGO60890 W 
RGOGO900 W 


RGOEO0910 W 
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No. of match fields on record exceeds previous def. 
Assume first def. 


Match field level has already been used for a field 
in this record 


Match field length differs from previous def. Assume 
previous def. 


Jeter match field length for record is greater than 
Match or control fields are valid only for primary or 
secondary files 


Match or control level invalid for look-ahead or 
trailer field 


Match or control field camot be an array item 


Invalid field indicator in cols 65-—€6, €7-68 or 
69-70. Ignore indicator 


Field size or type differs from previous definition. 
Assume prev. def. 


No input specifications found for file XXXXXXXX 


Files with matching records not all either ascending 
or desc. sequence 


Record indicator in columns 19-20 is never referenced 


Field record relation indicator in columns 63-64 is 
never defined 


PLUS field indicator in columns 65—66 is never 
reference 


MINUS field indicator in columns 67-68 is never 
referenced 


Zero or blank field indicator in columns 69-70 is 
never referenced 


PLUS and MINUS field indicators invalid with an 
alphanumeric field 
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OVERLAY 7. CALCULATION SPECIFICATIONS SCAN 


RGO70010 W Invalid control level in columns 7-8. Assume latest 
control level 


RGO70020 F ULABL field length and decimal positions missing or 
incomplete 


RGO70030 F ae line out of order or invalid. Ignore AN/OR 
ine 
RGO70040 F More than 7 AN/OR lines used together. Ignore entire 
indicator group 


RGO7O050 W ’AN” or “OR’ not specified in cols 7-8. Ignore 
entire indicator group 


RGO7O060 F Operation not recognized 


RGO70070 W “NOT” entry in colum 9, 12 or 15 is not N or 
blank. Assume N 


RGO70080 F Invalid operation indicator. Ignore entire indicator 
group 


RGO70090 W Indicator missing for “NOT” entry in column 9, 12 or 
15. Ignore “NOT 


RGO70100 F Invalid resulting indicator. Ignore indicator group 
RGO70O110 F Invalid factor 1 entry in columns 18-27 
RGO70O120 F Invalid factor 2 entry in columns 33-42 


RGO'701350 F Invalid filename entry for factor 2 (columns 33-42) 


RGO70140 F Filename in factor 2 has not been defined by file 
description specs. 


RGO70150 F Invalid index in factor 1 (columns 18-27) 
RGO70160 F Invalid index in factor 2 (columns 33~42) 
RGO7O170 F Invalid result field entry in columns 43~48 
RGO7O180 F Invalid result field length entry in columns 49-51 
RGO70190 F Invalid result field length entry in columns 49-51 
RGO7O200 F Invalid decimal positions entry in column 52 


RGO70210 W 


RGO70220 W 


RGO70230 W 


RGO70240 W 


RGO70250 W 
RGO70260 F 
RGO70270 W 


RGO70280 F 
RGO70290 F 
RGO703500 W 


RGO70310 W 


RGO70320 W 
RGO70330 W 
RGO70340 W 


RGO70350 W 


RGO70360 W 


RGO70370 W 


RGO70O380 W 


RGO70390 F 


RGO70400 W 
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Result field length missing but dec. pos. specified. 
Ignore dec. pos. 


pees haa entry in column 53 is not H or blank. 
Assume F 


Field attribute not the same as in previous def. 
Use previous def. 


Result field has an index but is not an array name. 
Ignore index 


Invalid index in result field (columns 43-48) 
Result field is missing (columns 43-48) 


Data area used up. Storage allocation will be in 
error 


Factor 1 is missing (colums 18-27) 
Factor 2 is missing (columns 33-42) 


A resulting indicator must be specified for this 
operation 


Missing AN/OR line. Ignore entire operation 
indicator group 


Missing ENDSR statement. Assume ENDSR 
Operation indicators missing on AN/OR line 


Indicators in cols 9-17 not allowed for this opera~ 
tion. Assume blank 


Indicators in cols. 54-59 not allowed for this opera- 
tion. Assume blank 


Factor 1 (cols 18-27) should be blank for this 
operation. Assume blank 


Factor 2 (cols 33-42) should be blank for this 
operation. Assume blank 


Result field should be blank for this operation. 
Assume blank 


Field used as result field is a non-alterable field. 
Ignore spec. 


Page field uscd as result has already been redefined. 
Use prev. def. 


RGO'70410 F 
RGO'70420 F 


RGO'70430 F 


RGO70440 F 
| RGO70450 F 
RGO70460 F 


RGO7O470O F 


RGO70480 W 
RGO‘70490 F 
RGO'70500 F 


RGO'70510 W 
RGO70520 W 
RGO70530 W 
RGO70540 W 
| RCO70550 F 
RGO70560 F 


laa W 
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Name already has another use 


GOTO operation may not branch into or out of a 
subroutine 


GOTO operation may not branch out of one subroutine 
into another 


Name already has another use 

Name referenced by EXSR is not a subroutine name 
Name referenced by GOTO is not a TAG name 

A subroutine may not call itself 

BEGSR statement missing. Assume BECSR 

BEGSR out of sequence. Ignore BEGSR line 


Decimal pos. entry is greater than field length. 
Assume zero dec. pos. 


Field length and dec. pos. (cols 49-52) should be 
blank. Assume blank 


aie dacs pose ttons entry (column 52) should be blank. 
Assume b 


Half—adjust entry (column 53) should be blank. 
Assume blank 


BEGSR statement should have SR in columns 7-8. 
Assume SR 


Field length is over 255 for alphanumeric field or 
over 15 for numeric 


TAG or subroutine name XXXXXX is undefined. 
Referenced NNN time(s) 


TAG or subroutine name XXXXXX has not been 
referenced 
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OVERLAY 8. 


RGO&8O0O00O0 F 
| RGOB0010 F 


RGO8O0020 W 


RGO&80030 W 
RGO8O0040 W 


RGO80050 W 
RGO80060 W 
RGO&0070 W 


RGO80080 F 
RGOS80090 F 


RGO80100 F 
RGO80110 F 
RGO80120 W 
RGO80130 W 
| RGO80140 W 
RGO80150 W 


RGO&0160 W 
RGO8O170 W 


OUTPUT SPECIFICATIONS SCAN 


AND {QR line out of order. Ignore all statements 
until next filename 


Filename for output not on first output-format 
specifications line 


No fields described for previous record 


Output—format specifications missing 


a should be used with external indicators 
only 


One or more output files have been defined but not 
referenced 


Forms positioning is specified on control card; 1P 
indicator not used 


Columns 16-22 should be blank for a field descrip-~ 
tion. Assume blank 


Invalid filename in columns 7-14 


Filename has not been defined by file description 
specifications 


File is not an output, update, combined or input 
“ADD” file 


T or E in column 15 invalid for combined or 
non—chained update file 


Cols 32-70 should be blank for record identifying 
spec. Assume blank 


Type of record in column 15 is not H, D, T, E or 
ank. Assume H 


oaepat to input “ADD” file requires “ADD® in cols. 
16-18. Assume “ADD’ 


“ADD” invalid for device or file type. Assume 
columns 16-18 blank 


Error deleted 


Stacker /overflow entry (col 16) invalid for file 
device. Assume blank 


RGOSO180 W 
RGO&O0190 W 


RGOS80200 W 
RGO80210 F 


RGO80220 W 
RGO80230 W 
RGO8O240 W 
RGO80250 F 
RGORO260 F 
RGO80270 F 
| Rcos0280 W 


RGOS8O0290 W 
RGO&O300 F 
RGO80310 F 
RGO80320 W 
RGO80330 W 


RGO803540 W 
| RGO80350 w 


RGO&O360 W 
RGO8O3'70 W 
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Stacker/overflow (col 16) not valid stacker number 
or F. Assume blank 


device. A entries in cols 17-22 invalid for file 
device. ssume blank 


Invalid skip entry in columns 19-22, Assume blank 


More than 20 AND/OR lines used for this record. 
Ignore those over 20 


Invalid indicator in cols 24-25, 27-28 or 30—31. 
Assume blank 


Overflow indicator not assigned to file in file 
descr. Assume valid 


“NOT” entry in colum 23, 26 or 29 is not N or 
blank. Assume N 


Overflow indicator cannot condition EXCPT record. 
Ignore spec. line 


Fetch overflow invalid with overflow indicator. 
Ignore fetch overflow 


Overflow ind. used is not the same one assigned this 
file. Ignore spec 


Fetch overflow invalid with 1P indicator. Isnore 
fetch overflow 


1P indicator cannot be used with combined file 
1P indicator cannot condition total record 

1P indicator cannot condition EXCPT record 
Indicators missing on AND line 


Space/skip entries should be blank on AND line. 
Assume blank 


Indicators missing on OR line 


“ADD” in cols 16-18 illegal on OR line. Assume 
columns 16-18 blank 


Invalid space entry in columns 17-18. Assume blank 


Packed/binary field entry in col 44 not P,B,2,4, or 
blank. Assume blank 
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RGO80380 W Blank after entry in column 39 not B or blank. 
Assume blank 


RGO80390 W Cols 45-70 can, only be °$%, “**” or blank with edit 
code. Assume blan 


RGOSO0400 W Packed/binary entry should be blank for an edited 
field. Assume blank 


RGO8SO410 W Columns 45-70 must be blank for edit code X, Y or Z. 
Assume blank 


RGO80420 F Invalid field name in columns 32—37 


RGO804350 F Field name in columns 32-37 has not been previously 
defined 


RGOS8O440 F Invalid index in field name (colums 32-37) 


| RG0S0450 W Page field name has already been used for another 
file. Ignore spec 


RGO80460 W Cols after end apostrophe in cols 45—70 should be 
blank. Assume blank 


| RGOE0470 W Punch field follows print only field (* in col 40). 
Assume print only 


RGO&O480 F Invalid edit word in columns 45-70. Ignore specifi- 
cations line 


RGO80490 F End apostrophe missing for constant in columns 45-70. 
Assume present 


RGO&8O0500 F Leading apostrophe missing for constant in cols 45— 
1. Assume present 


RGO80510 W Invalid edit code in column 38. Assume blank 


RGO80520 F Invalid entry for ending position in columns 40-43. 
Assume 1 


RGO80530 F End position entry exceeds record length. Assume 
a equals record Tenth . , 


RGO80540 F Print only field (* in col 40) invalid for non—MFCU 
file. ‘ignore spec 


RGO8O550 W Indicators ace ‘e used to condition *PLACE. 
Ignore indicator(s 


RGO80560 F End position for *PLACE is not at least twice 
previous high position 


RGO80570 F 
RGO80580 Ww 
_ | RGOSOS90 w 
RGO8O6CO F 
RGO80610 F 
RGO80620 F 
| RGO80630 Ww 


RGOBO0640 W 
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*PLACE or *PRINT must be preceded by a field 
description 


Cols and arenes should be blank for *PLACE, 
*PRIN Nt ORs ih 


Ending position in cols 40-43 should be blank for 
*PRINT. Assume blank 


*PRINT s cification invalid after * has been used 
in col a0. Ignore 


et 2) ts specification invalid for non—MFCU file. 
ignore specification 


Field name (cols 32-37) and constant (cols 45—70) 
both blank 


Packed or prety output invalid for file device. 
Assume col 44 Flank 


Packed or binary entry should be blank for constant. 
Assume blank 
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OVERLAY 11. FILE EXTENSION/LINE COUNTER GENERATION 


Those error messages which are followed by a printed card image 
and an asterisk (*) showing the error location are indicated by 
an asterisk, in parentheses, following the message. 


RG110010 F Invalid numeric value in compile time table or array. 
Card number NNN of XXXXXX ey 


RG110020 F Compile time table or array item is out of sequence. 
Card number NNN of XXXXXX (*) 


RG110030 F Too much Sear for co pile time table or array. 
Card number NNN of XXXXXX ¢ } 


RG110040 W Compile time table or a ae missing. Items set 
to zeros or blanks in XXX | 


RG110050 W Compile time table or array short. Empty items set 
to zeros or blanks in KKK 


RG110060 W Invalid char. in file trans. or alt. seq. record. 
Ignore rest of red. (* 


RG110070' Ww Char. already referenced in trans. or alt. seq. 
table. Ignore 2nd ref (* 


RG110080 W File translation filename XXXXXXXX invalid. Ignore 
translation record 


RG110090 W File translation records for XXXXXXXX not together. 
Ignore later red. 


RG110100 W Cols 1-8 of alt. seq. record are XXXXXXXX, not 
“ALTSEQbE" Ignore rcd 


RG110110 W File translation table missing 
RG110120 W Alternate collating sequence specifications missing 
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OVERLAY 13. 


RG130600 
RG130610 
RG130620 


RG150630 


RG130640 


RG130650 


RG130660 


RG130670 


RG1306E0 


W 
a 
sa 


RG1306°90 F 


RG130700 
RG130710 


RG1350720 
RG130730 


RG130740 
RG130750 
RG130760 


RG130770 


CALCULATION GENERATOR 


Operation indicator XX is never defined 
Factor 2 is not a table or array for a LOKUP command 


Result field length specified in colums 49-51 for 
blank result field 


Factor 1 and/or 2 should be an array if result is a 
non—indexed array 


Factor 1 is not a valid type of field Tor this 
operation 


Factor 2 is not a valid type of field for this 
operation 


Result field is not a valid type of field for this 
operation 


Array index is not a numeric field or literal with 
zero dec. positions 


Factor 1 and/or factor 1 index has not been defined 
Factor 2 and/or factor 2 index has not been defined 


Result field and/or result field index has not been 
defined 


Result field must be an array if factor 1 or 2 isa 
non—indexed array 


Resulting indicator XX is never referenced 


Result field size may be too small to contain the 
operation result 


Invalid bit specifications for BITON, BITOF or 
TESTB operation 


Literal index is greater than the number of items in 
the array 


Result field size may be too small to contain the 
operation result 


MVR operation does not follow a DIV operation 


RG120780 F 
RG130790 F 


RG130800 F 


RG130810 W 


RG130820 F 


RG130830 F 


RG120840 W 


RG130850 F 


RG130860 W 


RG130870 W 


RG130880 W 


RG130890 W 


RG130900 F 


RG130910 F 
RG130920 F 


RG130930 F 


RG130940 F 
RG130950 F 


RG130960 F 
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Factor 2 must be an array name for a XFOOT operation 


Factor 1 and factor 2 must be both alphanumeric or 
numeric for compare 


Record length of file used for debug must be 34 or 
greater 


Both high and low indicators may not be used with 
LOKUP. Ignore low 


Unsequenced table or array may not be searched for 
hi or lo condition 


LOKUP way only be used with one array at a time. 
Igncre LOKUP 


Search table longer than related table. Search ends 
with shorter one 


Search word is not the same size as table/array 
items. Ignore LOKUP 


Columns 54-57 should be blank for READ operation. 
ssume blank 


Indicator should be specified in columns 58-59 for 
end-of--file on read 


Columns 56~59 should be blank for CHAIN operation. 
Assume blank 


Indicator should be specified in columns 54—55 for 
unsuccessful chain 


File used with FORCE is not input, update, or com 
bined; primary or sec. 


File referenced by READ command is not a demand file 


Fite referenced by CHAIN command is not a chained 


Key in factor 1 is not same length or t as ke 
fisid of chain file . we “s 


File used with DEBUG operation is not an output file 


ee used with DEBUG operation may not be a chained 
ile 


More ‘than one output file specified for DEBUG 
operation 


RG130970 F 
RG130980 F 


| RG130990 F 


RG131000 W 
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File used with DSPLY command is not a display file 


Either factor 1 or the result field must be specified 
for DSPLY ; 


Factor 2 or result field is invalid for a bit 
operation 


Field or literal to be displayed is longer than 100 
chars. Display 100 
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OVERLAY 14. 


RG140010 F 
RG140020 F 
RG140030 W 
RG140040 W 
RG140050 Ww 
RG140060 F 
RG140070 F 
RG140080 F 
RG140090 F 
RG140100 F 
RG140110 F 
RG140120 W 
RG140130 W 
RG140140 W 


RG140150 F 


OUTPUT GENERATOR 


Field name has not been defined or is used as another 
kind of name 


Array index is not a numeric field. Ignore 
specifications line 


Packed or bina ent should be blank for alpha 
ficid. Assume blank ° P 


Edit word in cols 45--70 should be blank for alpha 
field. Assume blank 


Edit code in column 38 should be blank for alpha 
field. Assume blank 


Invalid field length for Y edit code. Ignore 
specifications line 


No. of repleceable characters in edit word incorrect 
for field length 


Field name has an index but is not an array. Ignore 
spec. line : 


Index has more than zero decimal positions. Ignore 
spec. line 


qos cannot be an array name. Ignore specifications 
ine 


Size of field exceeds ending position or record 
length. Ignore spec. 


Indicator used to condition record has not been 
previously defined 


Blank after entry invalid for non-alterable field. 
Assume col 39 blank 


Indicator used to condition field has not been 
previously defined 


Literal index is too large for the array. Ignore 
specifications line 
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OVERLAY 15. CODE FORMATTER 


RG150010 W Page no. and/or line no. entry in cols 1-5 invalid 
or out of sequence 


RG150020 F Type of form entry in col 6 is invalid or out of 
order. Ignore line 


RG150030 F Too many external references used in program 


RG150040 F Generated object program is too large for core 
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SOPTWARE 


The RPG II compiler runs under’ the Memorex Operating System 
(MRX/OS) using Pe oe and requires the date and time 
functions. A relocatable object module is produced, ready for the 
linkage editor. All subroutines required by the generated prorram 
are automatically called in by external references (EXTRNS). 


~The generated. RPG II program runs under MRX/OS using logical 

inputvoutpute It requires thé DATE and user switch functions, and 
the commercial instructions set. No SYSGEN parameters are 
required. 


RPG II user switches U1-U8 are external switches which are 
initially set by a //SET SWITCH= Control Language Statement card 
and which correspond to the eight CLS switches. If U1-U8 are 
reset in a job step, the action is passed on to the next job 
step. 


To activate the RPG II compiler, all the operator need do is 
arrange the source card deck in the proper order (see Figure 1~2) 
and place the cards in the card reader; processing from that 
point on is automatic. 


a eeetinchcineieeseemeteimiances anceiemiemeaenamieohaemnienaiannemn enemecndianieeaaeeane tines seemalaemrma aeetamnaecome mice actdain mantenirenntetsean oer camreanetel 


Two compile—time messages may be written to SYSOUT. The first of 
these messegves is issued by the compiler when it encounters a 
Syntax error in the //PAR card. Its format is: 


*#%% RPG PARAMETER CARD SYNTAX FRROR **** CARD IS 


The message is immediately followed by the card imace. When this 
type of error occurs, the entire card is invalidated, the job is 
cancelled, and the program automatically halts. Compilation can 
be resumed only after the //PAR card has been corrected and the 
job resubmitted. 


The other message is written to SYSOUT if the user partition size 
is insufficient to compile the program. Its format is: 


POOLSTZ AILOCATION LEAVES INSUFFICIENT MINIMUM 
pata ey tigen SPACE—~TO CORRECT SET POOLSIZ=180 IN 


COMPILFR LINK~EDIT STEP 
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This messare also halts the program automatically. The prorrammer 
must then reduce the poolsize to 180 and resubmit the job. If the 
compiler continues to issue the same message, the prorram 
requires a larger user partition. The minimum System partition 
size acceptable is 8k. 


OP:RATOR RESPONSES TO EXECUTION-TIME ERROR CONDITIONS 


the RrG II compiler does not communicate directly with the 
ovrerator; however, at run time it informs the operator of any 
error conditions via messares on the console. The compiler 
supplies variable field information when the messare is printed 
so that the operator can isolate the error, and the operator may 
take his choice of responses. Differing responses are leral for 
aitferent messages. The user may enter a one—character response 
coce, as follows: 


0 to continue processing where he left off. 
1 To ro to the berinning of the next cycle. 
2 To reguest a controlled cancel, in which tables and 


arrays are written out and files are closed before 
the job is ended. 


5 To cancel immediately. 


The run-time error messares and the leral response options 
available are listed on the following pare. 


Error No. 
RGRTOOO1 
RGRTOOO02 
RGRTO0O3 
RGRTO004 
RGRTOOOS5 


RGRTOOO6 


RGRTOOO9 
RGRT0010 
RGRTOO11 


RGRTO012 
RGRT0013 


RGRTOO14 
RGRTOO15 
RGRT0017 


_RGRTOO18 
RGRTOO19 


| IND ON IS Hn 


RGRTOO07 


RGRTOOO8 | 


RGRTO016 
| AT LINE nnnnn 


Message 


NEG. SQ. RT. AT LINE nnnnn 


ARITH OVERFLOW AT LINE nnnnn 
DIVIDE BY O AT LINE nnnnn 
VARIABLE ARRAY INDEX IS 0, MINUS, 


! OR TOO LARGE AT LINE nnnnn 


TABLE/ARRAY SEQ ERROR, T/A- 
RECORD NO. S nnnnn-nnnnn * 


, FILE IS xxxxxxxx 


| TABLE/ARRAY MISSING, T/A NO. 


nnnnn * FILE IS 


EXCESS TABLE/ARRAY ENTRIES,T/A 
NO. nnnnn * FILE IS xxxxxxxx 


PARTITION SIZE EXCEEDED 
1P FORMS ALIGNMENT 


RECORD SEQ ERROR * FILE IS 
AXXAXXXXX 


MATCHING RECORD SEQ ERROR * 
FILE IS xxxxxxxx 


UNIDENTIFIED RECORD * FILE 


IS XXXXXXXX 


INVALID NUMBER AT LINE nnnnn 


| CHANNEL NOT DEFINED ON LINE 


COUNTER * FILE IS xxxxxxxx 


BINARY CONVERSION OVERFLOW 


TABLE/ARRAY BINARY OVERFLOW, 
T/A NO. nnnnn * FILE IS 
XXXAAXAXX 


SPECIAL FILE 1/0 ERROR nnn 


EOF INDICATOR MISSING ON READ 
OR CHAIN OPERATION * FILE IS 
XXXXXXXX 


Variable Fields 


nnnnn-nnnnn = table/array 


| number and record number; 
XXXXXXXXK = file identification 


nnnn = table/array number; 
XXXXXXXX = file identification 


nnnn = table/array number 
XXXXXXXX = file identification 


XXXXXXXX = file identification 
XXXXXXXX = file identification 


XXXXXXXX = file identification 


nnnnn = line number 
XXXXXXXX = file identification 


nnnnn = line number 


nnnnn = table/array number; 


XXXXXXXX = file identification 


nnn = error code 


XXXXXXXX = file identification 


APPENDIX H PAGE 


Permitted 
Responses 


[rsmacewros [af ele 
Fommne ema [x| fe 
Feomns near [xl Pf 
Caen nwo [al Taf 


nnnnn = line number ae 


2.1 
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MRX/SYSTEM 3/MODEL 20 COMPARATIVE ANALYSIS 


The following table presents an analysis of the RPG features 
supported by Memorex as compared to IEM’s System/% and Model 20 
support. 


Feature 


AN/OR calculations 

Arrays 

Binary input and output fields 
Binary operations 

Binary search 

Combined files 

DEBUG statement 

Demand files 

Display files 

Dual—~feed printer 

Fetch overflow 

Input chaining 

Lookahead 

MFCM 

MFCU 

Multiple printing of first line 
READ calculations 

Sign forcing 


Special field names PAGE1, PAGE2, 
PAGES 


Special field name *PLACE: 


RCE RAE 1 RAN TE PAE IT BIC PEE TE IAI TT 
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Feature 


SQRT calculations 
Stacker select 


Sterling currency 


Suppression of 1P skip to 
channel 1 


Tapes 

Translation table 
Unprintable character halt 
Variable-length records 


XFOOT operations 
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APPENDIX I. INDFXED FILES 


STRUCTURE 


Indexed files are divided into two portions: the data portion, 
and the index portion. 


DATA PORTION 


lhe data portion of an indexed file is comnosed of blocks of 
fixed-length data records which are scattered on the storare 
device. Each of these data records contains a uniaue record key 
which serves to identify the particular record. The lenrth of 
this key and the record position in which the key field berins 
are specified in columns 29-30 (lengrth of key field entrv) and 
35-38 (starting location of key field entry) of the RPG ITI File 
Description Specifications Sheet. 


INDEX PORTION 


The index portion of an indexed file contains a copy of each data 
record’s key. The keys are arranged in sequence. Each record’s 
key is followed by an address associated with that key; the 
addr€ss .consists of the number of the data block in which the 
data record resides, and the number of the record. The keys and 
addresses thus form the control information used in finding data 
records in the data portion of the file. Every record in the data 
portion of an indexed file is identified in the index rortion of 
that file by such control information. (See Appendix J, "Index 
Portion of Indexed File," for a more detailed explanation of the 
index portion’s structure. ) 


INDEX BLOCKS 


when an indexed file is created, the Data Manarement facility of 
the Memorex Operating System writes the index control information 
on, disc in tlocks; these blocks of information are referred to as 
index blocks. The size of index blocks can vary from file to file 
(see "Index Block Sizes" in this appendix). It is rsoverned by 
such factors as record key lengths and the number of records in 
the data portion of the file. 
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INDEX BUFFERS 


To find the location of a specific data record, the index portion 
of the indexed file must be searched for the block containing the 
Tight key and address. Searching the index portion involves 
reading index information from disc into main storare for 
analysis by the Data Management facility. A buffer must be 
defined to hold the index information; this buffer is referred to 
as an index buffer. The index information is read into the index 
buffer by blocks until the proper key is found. Because the index 
is itself built with an index structure, no more than three 
blocks need to be read before the key is located; the address of 
the record is then extracted from the key to determine the 
record’s location. 


INDEXED FILE ACCESS 


Indexed files may be accessed for data records either 
sequentially or randomly. The mode of processing affects the rate 
of retrieval. 


SEQUENTIAL ACCESS 


To access a data record in an indexed file sequentially, Data 
Management merely reads the index sequentially. The keys are 
already in sequential order. After accessing the first record, 
Data Management uses the address associated with the next key to 
obtain the next record. From the block number and record number 
which form the address, Data Management can calculate the storare 
location where the data resides. It reads in the data block, then 
readies the record for processing. 
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RANDOM ACCESS 


Random access of an indexed file requires searchine. The search 
begins with the high-level directory* in the index portion of the 
file. Because the high-level directory is accessed so frequently, 
it is often advantageous to have it in memory all the while the 
file is being used. This is accomplished by copying it into the 
high-level directory buffer rather than the usual index buffer. 
In this way the high-level directory is never copied over by 
other index information. When an RPG IT user makes a hirh-level 
directory size entry in columns 47-52 of the File Description 
Specifications Sheet, he is specifyins that the hirh—-level 
directory is to stay in memory. The entry is valid only for 
random processing of indexed files. 


INDEX BLOCK SIZES 


when a user is planning the creation of indexed files, he must 
decide whether he wants to process the high-level directory ina 
main storage buffer. This option speeds up random processing, but 
requires extra space for the buffer. Once the user has made this 
decision, he must calculate the index block size; this he can do 
either by table or by formula (see "Calculating Index Block Size 
by Table" and "Calculating Index Block Size by Formula" in this 
appendix). 


MINIMUM INDEX BLOCK SIZE 


Every indexed file has a minimum index block size which depends 
On key size and file size. The user may utilize any index block 
size larger than the minimum if he has storage space for a larger 
index block; the ‘larger the index block, the better retrieval 
becomes on random processing. If the user noes below the minimum 
index block size, the possibility exists that he may not be able 
to create the file size as planned. 


* The high-level directory used in RPG II is referred to as the 
"directory-directory" in the Data Management Extended, COBOL, 
and Control Language Extended Reference Manuals. 
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OPTIMUM INDEX BLOCK SIZE 


If the user chooses to process the file randomly with the 
high-level directory in a main storare buffer, a well defined 
optimum index block size may be used which minimizes storare 
space for the index buffer and hirh-level directory buffer. When 
using the optimum block size, however, he must be careful at file 
creation time not to exceed the file maximum number of records 
from which he calculated the keys per block. This restriction is 
further explained under "Index Buffer Size" in this appendix. 


CALCULATING INDEX BLOCK SIZE BY TABLE 


Once the user has determined his mode of rrocessinr, he may 
calculate the index block size by means of the tables on the 
following pares. In both tables J-1 (for minimum index block 
size) and I-3 (for optimum index block size), the larrer of ‘the 
two values in the file size is the determining factor. The user 
should also note that for consistency these two tables were 
computed for a maximum key size of 100 bytes, with one million 
records as the upper limit. Some index block sizes will be 
computed that exceed one track in number of bytes; since this 
size is more than the system limit of 7294 bytes for blocks, the 
user will have to choose a smaller key size or file size. 


MINIMUM INDEX BLOCK SIZE 


Table I-1 is used to determine the minimum number of keys per 
index block. The following procedure may be used to calculate the 
minimum block size using Table I-1 in comjunction with Table T-2: 


1. In Table I-1, locate the number of records in the file and 
the key size. For example, if the number of records is 20,000 
os the key size is 10, the minimum keys per index block is 


2. Enter the keys ver block in the Control Lanruage define 
(//DEF) statement, alone with the key size. 


4- Calculate the corresponding minimum index block size from 
Table IJ-2, using the minimum block size formula. With minimum 
keys per index block of 24 and a key size of 10, for example, 
the minimum index block size would be 364 bytes. 


4. Enter the minimum index block size in the source prorram (see 
"Index Buffer Size" in this appendix). 


Records in File 


1 - 5,000 

5,001 - 10,000 
10,001 - 15,000 
15,001 - 20,000 
20,001 - 25,000 
25,001 - 30,000 
30,001 - 35,000 
35,001 - 40,000 
40,001 - 45,000 
45,001 - 50,000 
50,001 - 60,000 
60,001 - 70,000 
70,001 - 80,000 
80,001 - 90,000 
90,001 - 100,000 
100,001 - 125,000 
125,001 - 150,000 
150,001 - 175,000 
175,001 - 200,000 
200,001 - 250,000 
250,001 - 300,000 
300,001 - 350,000 
350,001 - 400,000 
400,001 - 450,000 
450,001. - 500,000 
500,001 - 600,000 
600,001 - 700,000 
700,001 - 800,000 
800,001 - 900,000 


900,001 - 1,000,000 


Key Size in Bytes 


8 9 10 
15 1515 
19 19 19 
22 22 22 
24 24 «(24 
25 26 26 
27 27. «28 
28 29 «29 
30 30 30 
31 31 31 
32 32 «33 
34 34 «35 
36 36 36 
37 38 «= 338 
39 39 40 


46 46 47 
48 49 49 
50 51 51 
54 55 55 
58 58 59 
61 62 62 
63 64 65 
66 67 67 
68 69 70 
734#«73 «74 
76 #77 + «#278 
80 81 81 
83 84 85 
86 87 88 


APPENDIX I 
17. «16~—«O1 
to to to 
15 20 25 
16 16 16 
20 20 20 
23 23 «23 
25 25 26 
27 27. 27 
28 29 29 
30 30 31 
31 32 32 
32 3333 
34 34 «34 
36 36 37 
37 38 «= 38 
39 40 40 
41 41 42 
42 43 43 
45 46 47— 
48 49 49 
50 51 52 
53 54 54 
57 58 58 
61 61 62 
64 65 65 
67 68 68 
69 70 71 
72 73 «74 
764#«77~«=78 
80 81 82 
84 85 86 
87 88 89 
90 92 93 


Table I-1. Minimum Keys Per Block. 


PAGE 


100 


5 
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Optimum block size = 10 + | 


(10) (OKB) (KS+4) | 
9 


OKB = Optimum keys/block 


KS = Key size 


i | (10) (MKB) (KS+4) 
Minimum block size = 10 + ————————_ 


9 


MKB = Minimum keys/block 
KS = Key size 


NOTE: | = Round up if result not whole integer. 


Table I-2. Optimum or Minimum Index Block Size. 


LARGER THAN MINIMUM INDEX BLOCK SIZE 


An index block size that is larger than the minimum may be 
calculated using the steps shown for calculating the minimum 
index block size; however, the keys per block figure must be 


sreater than or equal to the minimum keys per block number 
selected. 


OPTIMUM INDEX BLOCK SIZE 


The optimum index block size can be calculated with the following 
procedure : 


1. In Table I-3, locate the number of records in the file and 
the key size. For example, if the number of records is 20,000 
and key size is 10, the optimum keys per block is 30. 


2. Enter the keys per block in the Control Language define 
(//DEF) statement, along with the key size. 


3. Calculate the corresponding optimum index block size from 

Table I-2, using the optimum block size formula. With optimum 
keys per index block of 30 and a key size of 10, for example, 
the optimum index block size would be 477 bytes. 


- Enter the optimum index block size in the source prorram. 


Records in File 


1 - 5,000 

5,001 - 10,000 
10,001 - 15,000 
15,001 - 20,000 
20,001 - 25,000 
25,001 - 30,000 
30,001 - 35,000 
35,001 - 40,000 
40,001 - 45,000 
45,001 - 50,000 
50,001 - 60,000 
60,001 - 70,000 
70,001 - 80,000 
80,001 - 90,000 
90,001 - 100,000 
100,001 - 125,000 
125,001 - 150,000 
150,001 - 175,000 
175,001 - 200,000 
200,001 - 250,000 
250,001 - 300,000 
300,001 - 350,000 
350,001 - 400,000 
400,001 - 450,000 
450,001 - 500,000 
500,001 - 600,000 
600,001 - 700,000 
700,001 - 800,000 
800,001 - 900,000 
900,001 - 1,000,000 


46 
49 


55 


66 
69 
72 
76 
78 
82 
87 
91 
94 
98 


101 


100 
103 


102 
105 


Key Size in Bytes 


7 8 

19 19 
23 «24 
27. (27 
29 «29 
32 32 
34 34 
35 36 
37.37 
38 39 
40 40 
42 43 
44 45 
46 47 
48 49 
50 50 
5454 
57 «58 
60 61 
63 63 
68 68 
72. «73 
75 «76 
79 80 
82 83 
85 86 
90 91 

95 96 
99 100 
103 105 
107 108 


102 
106 
109 


102 
106 
110 


APPENDIX J 

11 16 «421 «26 
to to to to 
15 20 25. 35 
20 20 20 «21 
25 25 2 26 
28 29 29 = «29 
31 32 32 32 
34 34 «(34835 
36 36 37 37 
37 38 «4638 ~—(39 
39 40 40 41 
41 41 42 42 
42 43 43 44 
45 45 46 46 
47 48 48 49 
49 50 50 S51 
51 52 52 53 
53 54 54 55 
57 58 58 59 
61 61 62. 63 
64 65 65 66 
67 68 68 69 
72 #73 #74 ~«74 
7% #77 «78 ~=«#79 
g0 81 82 83 
84 85 86 87 
87 88 89 91 
90 92 93 94 
96 97 98 100 
101 102 103 105 
105 107 108 110 
110 141 «112 «114 
113. 115 116 118 


Table I-~3. Optimum Keys Per Block. 


PAGE 
36 51 
to to 
50 100 
21 21 
26 26 
30 30 
33 33 
35 36 
37-38 
39 40 
41 42 
43 43 
44 45 
47 48 
49 50 
52 52 
54 54 
56 56 
60 61 
64 64 
67 68 
70 71 
75 76 
80 81 
84 85 
88 89 
91 93 
95 96 
101 102 
106 107 
111. 112 
115 116 

121 


120 


7 
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INDEX BUETER SIZE 


when the keys per block and key size are entered in the Control 
lanruare define statement and the corresponding minimum or 
optimum index block size has been calculated from Table I-2, the 
index block size is then entered in the RPG II source prorram via 
the index buffer size specification of the file definition card 
(columns 60-65 of the File Description Specifications Sheet). 


HIGH-LEVEL DIRECTORY SIZE 


If the user has elected to calculate the optimum keys rer index 
block and optimum index block size, he then uses Table J—4 to 
calculate the number of bytes for the main storage buffer for the 
hich-level directory entries, and enters the resulting firure in 
columns 47-52 of the file definition card (hirh-level directory 
size entry). Using an optimum index block size of 477 bytes, a 
key size of 10, and a file size of 20,000, for examnle, the 
number of bytes required for the buffer for the hirh—-level 
directory would be 250. 


J 9088-10) |. 
Usage -(! To US 


: ; _| US_|_ 
Number keys/primary index block -| | NKP 


US 


Number keys/directory block + = NKD 


KS+2 


Total number keys represented/ 
directory block = (NKP) (NKD) = NKRD 


Number entries in {ies 


“| NKRD 


. = = NKDD 
High-level directory block 


Number of bytes required for 
buffer for high-level directory = 10+ (KS+2) (NKDD) 
entries 

Nore:| |. Round up if result not whole integer. 


[ = Round down if result not whole integer. 


Bytes Required in Buffer for Hirh—Level Directory Entries 
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The user must be careful at file creation time not to exceed the 
file maximum number of records from which he calculated the keys 
per index block when using the optimum block size. If this were 
to occur, the main storage buffer would not be large enourh to 
hold the high-level directory entries for random processinr, and 
the excess would be written over the user prorram. When an index 
btlock size other than the optimum is chosen, and the main storage 
buffer is used to process the high-level directory entries, the 
buffer size should be the size of the index block. The system 
checks for overflow of this value at file creation time. 


CALCULATING INDEX BLOCK SIZE BY FORMULA 


If the user wishes to calculate the keys per index block with a 
file maximum number of records different from those riven in 
Tables I-71 and I-3, he may use the following algorithms, alonr 
with Table I-5, to compute minimum and optimum keys rer index 


block. The constants Ko and Km, taken from Table I-5, are based | 
on key size. 


Optimum (OKB) -| 3 ES 
a2 _IS| Fs 
Minimum (MKB) “| Km 


FS = Maximum File Size 


NOTE: | | = Round to next higher integer 
if result not whole integer. 


A 
n 


re ee ee ee 
aor WN ]Y? OHO AN HMA A WN 


NONNONNNNNR SF SF 
VN OO PWN |= OO DON D 


49 


Teble T-5. 


2.5000 _ 


2.1776 
4.9753 
1.8367 
1.7361 
1.6598 
41.6000 
1.5518 
1.5124 
1.4792 
1.4512 
1.4272 
1.4062 
1.3880 
1.3718 
1.3574 
1.3444 
4.3328 
4.3224 
4.3128 
1.3040 
1.2960 
1.2886 
4.2818 
1.2756 
1.2696 
+.2642 
+.2592 
1.2544 
1.2498 
1.2456 
1.2418 
1.2380 
1.2344 
1.2312 
1.2280 
1.2250 
4.2222 
4.2194 
+.2168 
1.2144 
4.2120 
+.2098 
1.2076 
1.2056 
4.2036 
1.2018 
1.2000 
1.1982 


Constants for Alternate Alrorithm 


1.1966 


APPENDIX JT 


1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 


PAGP 


10 


PAGE 1 


APPENDIX J. INDEX PORTION OF INDEXED FILE 


Figure J~-1 shows the layout of an indexed file’s index portion 
and the relationship of each block to the other parts of the 
index portion. 


Block 1 Information Block 


2 


Primary Index Blocks 


Available Space 


Block n High-Level Directory Block 
n+1 


Directory Index Blocks 


Available Space 


Figure J-—1. Index Portion of an Indexed File 


Each of the individual blocks shown in the diarram is discussed 
in the succeeding paragraphs of this appendix. 
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INFORMATION BLOCK 


‘he information block of an indexed file’s index portion surrlies 
the addresses of the last blocks of the data and index portions 
of the file that were written. This enables the Data Manarement 
facility to make further additions to the file. Firure J-—2 shows 
the fields contained in the information block. 


Common Stored Data Record Header 


Byte 0 
2 
4| Pass Boundary Index | Track Boundary Index 


A reer 


Primary Index Thread Block Address 


Common Stored Data Space Header 


(1-3 bytes length) | 


PO NO awe te 


18 


20 


Figure J-2. Information Block 


APPENDIX J PAGE 3 


HIGH-LEVEL DIRECTORY BLOCK 


Figure J—-3 shows the layout of the high-level directory block. A 
directory index block address is associated with each key value. 


Byte 0 
Record Header 
2 
4 Previous Block Link 
6 Next Block Link 
8 Count of Values in Block 
10 Key Value 1 ~ 
(1-100 Character EBCDIC) 


m | Pointer to Directory Index Block 
m+2 


Key 1 


Key Value 2 
Key 2 


Pointer to Directory Index Block 


Space Header 
and 
Available Space 


Figure J-3. High-Level Directory Block 


The previous block link and next block link entries are not used 
in the directory blocks; they are reserved for future use. 
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PIRI CTORY IhTEX BLOCK 


cieure J-—4 illustrates the layout of the directory index bloch. 
Tic} key value has an associated primary index block address. 


Byte 0 Record Header 
2 
4 Previous Block Link 
6 Next Block Link 
8 Count of Values in Block 
10 
Key Value 1 
(1-100 Character EBCDIC) 


m |Pointer to Primary Index Block 


Key 1 


m+2 Maa Value 2 


Key 2 
n | Painter to intr to Primary Index Index Block 
nt+2 
Space Header ies 
aie ___ Available Space 


Firure J—4., Directory Index Block 
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tRIEARY INDEX BLOCK 


gisure J-5 shows the layout of the primary index bleclk. A 
btlicck-record address is associated with each key value. 


Byte 0 Record Header 
2 
4 Previous Block Link 
6 Next Block Link 
8 Count of Values in Block 
10 Key Value 1 
(1-100 Character EBCDIC) 
Key 1 
m Logical Block Number 
m+2 | Record Number 
m+4 
Key Value 2 
Key 2 
n Logical Block Number 
n+2 Record Number 
nt+4 


Space Header 
and 
Available Space 


Figure J—5. Primary Index Block 
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& (ampersand, use in edit acre 8-23 
* (asterisk, use with comments) 3-8 
* (asterisk, use with edit code) 8-18 
** (end record, alternate collating sequence table) 2-7 
** (look-ahead fields) 6~2,6-17 
** (preceding record, tables and arrays) 4—5,4-6 
** (separation records, tables and arrays) 4-13 
*PLACE special word 8&4,8-16 
(see also "field name, output"; a words" ) 
conditioning *PLACE fields 9<—- 16 
end position in cure record 84,8-16 
overlapping *PLACE fields 8&4 
/* (end—-of—file delimiter) 4-5,4-6 
g/oek card F~2 : 
(fixed or floating dollar sign) 818 


ADD (add) le code 7—4 
ADD entry 9 
add records 3-22 
adding entries to a short array 4-4 
adding items to tables or arrays 4-8 
adding records to files 322 
(see also individual file types) 
File Description etry 3—22 
indexed file 3=22,7-26 
input files 8-9 
output files 6&9 
update files 8&9 
valid add records 3-22 
addresses, track 3-19 
ADDROUT files 3-4 
(see also "record address files"; "relative record number" ) 
File Description entries : 
file organization fe 1. 32) 3-14 
length of key fiel (cols: 29-30) 3—13 
mode of processing (col. 28) 3-12 
processing 3-14 
record address type (col. 31) 3-14 
sd peice tee device support 3—19 
standard device assignment 3-18 
substitute device assignment 3-18,3-19 
summary chart 13 
adjusting results entry 7-29 
AFTER entry 
with skip entry S11 
with space entry 812 
alignment of printer forms 2-9 
allocation of computer storage 2-3 
allocation of file space on disc D~1 
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alphabetic characters (definition) C-1 


i lecreitand ls ae 
array entries - 
Gharnetere lacesnitions C= 
fields 2-6 
collating sequence 2-5 
literals 7 


match fields 6-28 
moving alphanumeric fields (MOVE) 7-7 
zero alphanumeric fields 6—34 
table or array items 4—4,4~-15 
altering the program cycle for I/O during calculations 7-22 
alternate collating sequence | | 
(see also "collating sequence”) 
ALTSEQ 2-6 
change record cards 2-6 
characters affected 6-21 
coding sheet 2-5 
compare operations ‘7-10 
control card entry 2-5 
control fields 6—8 
defining an alternate collating sequence 2-6 
end record 2~/ 
example 2-7 
input record format S~1 
match fields 6-28 
table 2-5 
alternating arrays ee varrays') 
alternating format (see "related tables and arrays"; “arrays"s 
"tables" 
ALTERNATE TABLE OR ARRAY entry 4—1& 
ALTSEQ (see alternate collating sequence) 
amount of storage needed for decimal representation 6-5 
ampersand (é), use in edit word &23 
analysis stage (see "RPG II system description") 
AN and OR lines 
{see also "AND and OR lines") 
Calculation sheet entries ‘7-32 
control level entry 7-31 
record code characters 6-20 
AND and OR lines 
(see also "record identification codes"; "OR relationship") 
indicators in an AND relationship in calculations ‘7-32 
Input sheet entries 6-25 
example 6-26 
record code characters 6-20 
Output sheet entries 68-& 
stacker select entries 
input 6-22 
output 89 
AND/OR entry 8-8 
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AND relationship 
Calculation sheet (indicators) 7-32 
Input sheet (record codes) 6-20 
Output sheet (output indicators) 8&€& 
arithmetic operations 7~3 
(see also "operation codes"; “operations") 
decimal positions in arithmetic operations 7-3 
factor 1 and factor 2 7-3 
length of fields 7-3 
list (see "operation codes") 
using three fields 7-3 
arithmetic overflow 2-13 | 
arrangement of cards in source deck 1—6 
array files 3-4 
(see also "table files") 
extension code 3-16 
arrays 
(see also "tables"; "related tables and arrays"; "item") 
adding entries to a short array 4-4 
adding items 4-8 
alphanumeric entries 4—4 
alternating arrays 4-10,4—-14,4-18 
alternating format 4-5,4-14,4-15,4-16,4—18 
binary format 4—-15,4—16 
building (see "loading" ) 
building via calculations (see "execution time arrays") 
changing 4-5,4--5,4-8 
compilation 4-5 
compile time 3-4,4~3,4—6,4-16 
corresponding items 4-14 
creating input records 4-4 
crossfoot operation 7-6 
decimal format 4~—-15,4-16 
decimal positioms 4-7,4-17 
decimal positions entry 4-16 
defining arrays (Extension sheet) 4-10 
definition 4~1 
definitions of terms C1 
dynamic arrays (see "execution time arrays") 
editing 4-10 
edit words with arrays 8-17 
end of array 4-10 
end—of~job indicator 4-9 
entry 4—4,4-—5 
execution time 4~3,4-6,4~-9,4~—10 
Extension specifications 4-11 
file designation entry 3-9 
files 3-4 
format 4-1,4~-5,4—6,4—15,4~16 
formatting output (see "exception output") 
full array (definition) 
general discussion 4~1 
index field 7-20 
indexing 4-2,4~-7,4-10,6-26, 7-20 
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arrays (continued) 


item 4— 
format 4—1,4—4 
index 4--2 


searching for 4-2,7~20 
(see also "LOKUP" ) 

length of entry 4-4 
loading 4-5 

compilation time 4—3,4—5 

considerations 4-3 

execution time 4~—3,4~-6 

from more than one record or file 4-13 

from one record 4—7 

placement in source deck 1-6 

pre—execution time iets thee * 

via input or calculations (see "arrays, execution time") 
LOKUP (see "LOKUP operation code") 
maximum descriptions per program 4~1 
modifying the contents 4-8 

cde entries to a short array 4-4 
name 4- 

alphanumeric items 4-4,4-—15 

alternating arrays 4-14 

as factor 1 or 2 4-8 

as operand 4-2 

as result field 4-8 

Extension sheet 4-14 

File Description sheet 3-8 

"from" filename entry 4-12 

in calculations 4—-8,4-9 

length 2 

referencing on input 6-26 

rules for 4-2,4-9 

size with calculations 4-8 

"to" filename entry ae 

using array names 4- 

with field name ‘7-20 
number of entries per array 4—15 
numeric entries 4-4,4—15,4-16 

ormatting 4-13 

(see also "EXCPT operation") 

on one record 4-10 

via Extension sheet 4-9 

via Output sheet 4-9,4-10 
packed or binary format 4-—6,4--15,4—16 
preceding record 4-5,4-6 
pre-execution time 3-4,4-3,4-6,4—11 
recording array data (rules} 4-4 
referencing array names on input 6-26 
referencing arrays in calculations 4-3 
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arrays (continued) 
related arrays 4-10 | 
alternating format 4—5,4—14 
definition 4 
length of entry specification 4-15 
naming 4-14 
searching arrays (see "LOKUP operation") 
separation records 4-13 
sequence (Extension sheet entry) 4—17 
sequence of definition 4—11 
short arrays (definition) 4-4 
specifying bits 7-11 
square root operation with arrays 7-6 
types 4-3 
compile time 4-3 
execution time 43 
full 4-4 
pre-execution time 4—2 
related 4-4 
short 4-4 
using arrays 
array name and index 4-2 
array name only 4-2 
valid operations with arrays 4-8 
XFOOT(see "XFOOT operation code") 
ascending seauence (see "sequence" ) 
assipning | 
card devices 3-18,89 
conditioning indicators on input 6-27 
control fields on input 6-7 
control level indicators 6-9,6-27 
devices 3-17 
external indicators on File Description sheet 323 
field indicators on input 6-32 
first page indicator on output &13 
halt indicators on input 6—15,6-29,6-32 
indicators in LOKUP operation ‘7-18 
level zero indicator 7—32,7~-33,7-39 
match fields 6-28 
overflow indicators on File Description sheet 3—15 
record identifying indicators on inpu 5 
asterisk fill (asterisk protection) 85,818 
(see also "e it word") 
edited fields &5 
ediu words &5,&18 
asterisk used to introduce comments 3-@ 
automatic 
page numbering 6-4 
skip to top of forms 8-3 
available lines for print 5-3 


BEFORE entry 
with skip entry 8-11 
with space entry 812 
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BEGINS entry 6-24 
BEGSR (begin subroutine) operation code 7-22 
binary field operations ‘7-11 
binary fields 
(see also “packed or binary fields") 
conversion of numeric fields 6-6, 6-23 
Extension sheet 
Input sheet 6-23 
length of fields 6-6 
Output sheet 8-21 
sign 6-6 
tables and arrays 4-16 
binary relative record number 
(see also "relative record number"; "record address files") 
Daery search 2~7 
i 


(see also "binary field operations"; "packed or binary fields") 
combinations 2=& 
testing 7-11 
use of indicators ‘7-12 
BITOF abe bit off) operation code 7-12 
BITON (set bit on) operation code 7-11 


- blank after 


Output sheet entry 819 
resetting fields to zeros or blanks &20 
used with field indicator ‘7-14 
BLANK AFTER entry &19 
blanking out fields 8-20 
block length 3-11 
computed by RPG II for disc files [D-1 
disc records 3—11 
File Description entry 3-11 
cee sizes 311 
relation to record length entry 311 
feat records 3—11 
unblocked record lengths 3-11 
branching operations ‘7-16 
buffer size 3-21 
vytes (see "packed or binary fields") 


CLS (see "Control Language Statements") 
C/Z/D (character/zone/digit portion) 6-20,6-21 
calculating storage needed for a file D1 
calculation generator error messages G-28 
calculation specifications scan error messages C-20 
Calculation Specifications Sheet 7-1 
calculations | 

detail time 7--16,7=—32 

factors (Factor 1 and Factor 2) 7-34 

indicators in AND relationship 7-32 

kinds of specifications 71 
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calculations (continued) 
operations ‘7-3 | 
(see also "operation codes"; "operations"; individual types 
of operations) 
conditioning 7-32 
controlling ‘7-~32 
external ‘/~26 
internal 7-3 
order of specification 7-32 
specification entry (cols. 28-32) 7—35 
summary table of operation codes B-6 
referencing arrays 
specifications sheet 7~1 
subroutines in 7-3 
total time 1~12, 7-16 
CANCFL key (see "display operation") 
card arrangement in source deck 1~6 
cards 
change cards 2~6 
device assignment 3-18,3-19,8-9 | 
packed decimal or binary format punching S21 
*PLACE specified for card output &20 
punched character structure 6—3,6~21 
source deck arrangement 1—6 
spread cards 6~2 
stacker selection on input 6-22 
stacker selection on output 8&9 
carriage control tape 
description 5 
skip specification 2--13,8-12 
CARRIAGE CONTROL TYPE entry 2-12 
causing characters to be considered equal 2-6,6-21 
CHAIN Cehein) operation code 7-25 
see also "direct file load"; "random processing") 
difference from READ operation 7-25 
direct file loading 7-26 
file addition entry 3—22 
relative record number 7~-26 
sign process specification 2-8 
chained file 3-3 
file designation entry 3-9 
processing 3-12, 3-—13,6-2 
sequence entry on input 6-13 
special device support 3-19 
standard device assignment 3-18 
substitute device assignment 3-18,3-19 
change record cards (alternate collating sequence) 2-6 
changing contents of tables and arrays 4-3,4-5,4-8 
channel | 
specifications 5-5 
use 
CHANNEL NO. entry 55 
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character 
alphabetic (definition) C1 
alphanumeric 
definition C1 
length of item specification (Extension sheet) 4-15 
binary 6-6 
bit structure 6-4 
byte structure 6-4 
code translation 2-10 
collating sequence (table) B-1 
computer representation 6-5 
FBCDIC representation 6-3,6-21,6—22 
equal characters 2-6,6-21 
input sheet entry 6-21 
insertion &2% 
invalid (printer or console) 6-22 
machine representation 6—=3,6-5,6-22 
non—replaceable 8-23 
numeric 
definition C1 | 
length of item specification (Extension sheet) 4-15 
packed decimal format 6-4 
packed decimal representation in the computer 6-5 
unpacked decimal format 6-3 | 
packed decimal format 6-4 
printable 6-22 
punched 6-5 
record code 6-19 
replaceable 8--6,8=22 
special (definition) C-1 
ar ae a 1 k b fields") 
see also "collating sequence"; "packed or binary fields" 
negative numbers 604. G22 a 
translation for computer representation 6—5 
unpacked decimal format 6-3 
CHARACTER entry 6-21 | 
checking sequence (see "sequence checking") 
CLS (see "Control Language Statements" ) 
code 
edit code 85,817 
end—of-file 3--9 
machine code 6-3 : 
operation (see "operation codes") 
record code 6-19 
code formatter error messages C-31 
code formatter phase of compiler 1--9 
code generation phase of compiler 1-9 
codes, operation (see “operation codes") 
coding instructions 
alternate collating sequence 2-5 
calculations ‘7-30 
~ontrol card 2—1 
extension 4-11 
file description 3-6 
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coding instructions (continued) 
input 6-11 
line counter 5-2 
output &~6 
coding sheets 
Alternate Collating Sequence and Translation Table 2-5 
Calculation Specifications Sheet 7-1 
Control Card Specifications Sheet 2-1 
Extension Specifications Sheet 5-1 
File eal tree Specifications Sheet 3—1 
Input Specifications Sheet 6-1 
Line Counter Specifications Sheet 4-1 
Output—Format Specifications Sheet S&-1 
Print Chart Coding Sheet 1—14 
collating sequence 
(see also “alternate collating sequence"; "character structure") 
alphanumeric fields 2-6 
changing normal sequence 2-5 
definition 2-5 
equal characters 2-6 
normal order 2-5 
sequence checking 2-5 
table 1 
COLLATING SEQUENCE entry 2-5 
comments 
in columns 7-80 3-8 
in program identification field 3-23 
on Calculations sheet ‘7-41 
on Extension sheet 4~18 
COMMENTS entry 
Calculation sheet 7-41 
Extension sheet 4-18 
in columns 7-80 3-8 
common stored—data format 3-11 | 
COMP (compare) operation code 7-10 
comparative analysis (MRX/System 3(Model 20) H-2 
@) 


compare and test operations 
comparing fields for BE Match 6~— 


compilation 

halts (see “halt indicator") 

of object program 1-3 

of source program 1-9 

tables and arrays 4-5 
compilation stage (see “RPG II System Description") 
compile time tables and arrays 4-5 

see also "arrays"; .“tables") 

format 4-6 

input record creation 4—4 

loading 4-3,4-5 

specifications 4-10 
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compiler 
design 1-9 
executive routine 1-9 
phases 


code formatter 1-9 
code generation 1-9 
cross-reference ‘1—10 
syntax 1-9 
table overflow 1~9 
storage amount required 1-10 
structure 14. 
translation of source program 1—4 
use of control card 2=1 
computer storage allotment 2-3 
conditioning files (File Description entry) 3-23 
conditions tested by resulting indicators (calculations) 
configuration of machine 1-10 
consecutive processing of file 3-12 
console 
(see also "DSPLY operation code") 
assignment 3-18,3-19 
CANCEL and keys 7~24 
device entry (File Description sheet) 3-—17,3-18 
display operation code ‘7—24 
constant 
(see also "edit word"; "literal") 
definition 8&6 
examples 8-24 
move left operation 7-7 
Output sheet 6-21 
rules for forming 823 
CONSTANT entry 8-21 
control break 6-8,6—9 
(see also "control fields"; "control level") 
definition 6-8 
field record relation 6-31 
first cycle difference 6-8 
general description 6-8 
unwanted 6-9 
Control Card Specifications Sheet 2~1 
control fields 6-7 
(see also "control break"; "control level") 
assigning on ae 6-7 
control group 7T 
definition 6-7 
general description 6-7 
numeric control fields 6-8 
OR relationship of record types 6-25,8-9 
rules for using 8 
split control fields 6-8 
control group 6-7 
(see also "control fields"; "control level") 
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Control Language Statements 

examples of compilation F-4 . 

linkage editor specifications F-3 

//PAR card parameters F—2 

requirements 

for compilation F-~3 
eneral I~1 

control level 

(see also "control fields"; "control break") 

Calculation sheet entry 7-31 

Input sheet entry 6-277 
CONTROL LEVEL entry 

Calculation sheet 7-31 

Input sheet 6-27 
control level indicator 6-9 

assigning indicators 6-9 

Calculation sheet 7-13 

control fields 6-7 

exception 8-2 

general information 6-9,7-15 

Input sheet 6-7, 6-27 

normal uses 6-7 

Output sheet 8-14 

relation between Calculation sheet entries 7-32 
control level indicator (continued 

skipping calculations 7-16 

split control fields 6-8 

summary tables E-2,B-3 

total calculations processing 1~—13,6~—9 
controlling calculations and output ‘7-1,7-29 

using field indicators (input) 6-32 

using indicators in calculations 7-1,7~32 
conversion of fields 

during move operations 7-6 

numeric fields 6-6,6~-23 

to binary or packed decimal output &21 
corresponding table or array items 4-14 
CR (negative balance symbol; see "edit words") 
creating a direct file (see "direct file load") 
crossfoot (XFOOT) operation 7~6 
CROSS-REFERENCE LIST entry 2-12 
cross—reference phase of compiler 1-10 
cycle 

altering the cycle for he during calculations 7-23 

detailed object program logic A-1 

general object program logic 1-11 

first and last cycle differences 1~—13 

C/Z/D (character/zone/digit portion) 6-20 


data formats (see "packed or binary field"; "character structure") 
DATA LITERAL entry 7-34 

date field (UDATE, UDAY, UMONTH, UYEAR) 8-5,8-17 

DEBUG CODE entry 2-3 
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DEBUG (debug) operation code . 7~28 
eutcies veccired 2=4, 7-29 
format of debug records 
record 1 ‘7-29 
record 2 7=29 
eneral information and specifications 7-28 
ee data format ’ 
see also “packed and binary fields" 
packed oa 
unpacked 6-3 
decimal places (see “decimal positions") 
decimal point 
(see also "decimal Peers) 
in specifications 24 
numeric control fields 6-8 
numeric literals ‘7-2 
decimal positions 
(see also "decimal point") 
Calculation sheet entry ‘7—-38& 
relation to field length entry 7-28 
discussion 4-17 
Extension sheet entry 4-16 
in arithmetic operations 7-3 
in page numbering 
Input sheet entry 6-24 
match fields 6=—29 
decimal positions (contimed) 
move operations 7-6 
move remainder operation pe 7-5 
numeric control fields 
uare root operation (SORT) 1-5 
DECIMAL POSITIONS entry 
Calculation sheet az 
Extension sheet 4-16 
Input sheet_ 6-24 
defining a field in calculations (result field) 7-27 
defining an alternate collating sequence 2-6 
definitions of terms C1 
delimiter 
end—of-file (/*) 4-5,4-6 
in editing -5 
demand file 3-4 
(see also "READ operation code" ) 
external indicators with 7-25 
File Description sheet entry 3-9 
maximum number 3-4 
record identifying indicators with 7-24 
with CHAIN operation code 7-25 
with READ oe code 7-24 
escend sequence (see "sequence" 
SESIGNATION entry 3- 3-9 i 
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detail | 
calculations time 1—13,7~16,7—32 
operations time 1—11 
output record 8-2 
with control level as output indicator 88 
Output sheet entry 8-8 
output time 1~-11,8-2 
printing 5-5,8-2 
time 1—11,1-—13 
detailed object program logic /A-1 
device | 
(see also "cards"; individual devices, individual files) 
assignment (table) 3~-18 
File Description sheet entry 3-17 
output device 8-10 
record block length 3~11 
special device support (SPECIAL) 3-19 
specification when adding records 8-9 
standard devices 3-18 
substitute device assignment 3-18,3—19 
DEVICE entry 3-17 


digit 6-4 3 
(see also "character structure"; "PORTION entries") 
binary format 6-6 
byte 6-4,6~-5, 6-6 3 
length of item entry (Extension Sheet) 4—15 
packed decimal format 6—4 
packed decimal representation 6-5 
punch (see "character structure") 
structure 
unpacked decimal format 6-3 
direct file 
adding records 3-22,7-26 
creating (loading) a direct file 3-~12,7-26 
processing methods 3-12 
summary charts 3-13 
directory size 3-22 
disc | 
assignment 3-18,3~9,8-9 
device entry 3-17 
output 8&9 
disc file 


(see also "direct file"; “indexed file"; "sequential file") 


block length entry 3-11 

device entry (File Description sheet) 3-17 
file addition entry 3~22 

key field 3-—13 

loading 7-26 

organization (see "file organization") 
process ie (see "processing methods") 

with CHAIN operation code 7--25 

with READ operation code 724 
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display (DSPLY) operation 7-24 
see also "display file"; "console") 
CANCEL key ‘T—24 
END key ‘7-24 
entering data during program execution 7-24 
display file 3-2 
see also "console") 
sequence entry (file description) 3-10 
special device support 3-19 
standard device assignment 3-18 
substitute device assignment 3--18,3-19 
DIV (divide) operation code 7-5 
dollar sign (see "edit code"; "edit word"; "floating dollar sign") 
domestic date format 85,817 
DSPLY (display) operation code 7-24 
(see also "display file") 
dynamic array (see "execution time array") 


edit code &5 
with array 8-17 
with edit word &=22 
effect on end position 820,822 
floating dollar si 8-18, 8-22 
inverted print 2 
leading zero suppression 8-5,8-18,8-22 
Output sheet entry 817 
summary tables €&-17,8-1°, B-8 
zero balances 8-18 
EDIT CODE entry 817 
edited fields 8&5 ’ 
editor, linkage (see "linkage editor" 
edit words gee (ses oe 
asterisk fill &5,8-18 
CR (negative balance symbol) 8-23 
definition 822 
dollar sign 8-18 
edit code used with 8-22 
editing considerations 6-5 
floating dollar sign 818,8-22 
length 8-22 
non—replaceable characters &-23 
Output sheet entry 21 
replaceable characters 8-6,8-22 
rules for forming 8-22 
EDIT WORD OR CONSTANT entry 8-21 
ending osition (see "end posteson in output record") 
ENDING POSITION entry &2 
END key (see "display (DSPLY) operation") 
end of file 
(see also "multifile processing") 
delimiter (alternate collating sequence) 2-6 
external indicators 13 
File Description sheet entry 3-S 
force (FORCE) operation use 7-23 
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end of file (continued) 7 
read (READ) operation use 7-24 
tape rewind 3—22 
END~OF-FILE CODE entry 3-9 
end—of—i0b 
indicator 1+13 
see also "indicators" ) 
operating cycle 1—11 
processing 1-13 
total output operations 1-13 
end position in output record 8-4 
effect of edit code on 820,822 
in field names &~22 
on *PLACF lines 8~-16,8-20 
Output sheet entry 8-20 
end record 
alternate collating sequence table 2-6 
file translation tables 2-10 
source program 2-5 
ENDS entry 6-24 
FNDSR (end subroutine) operation code ‘7-22 
environment 
hardware 1-10 
operational H~1 
software H-—1 
entries (see individual entries and "coding instructions") 
entry (table or array) © 
(see also "tables"; "arrays") 
length of entry (Extension sheet) 4-4 
number of entries per record (Fxtension sheet) 4~—14 
number of entries per table or array (Fxtension sheet) 4-15 
error messages 
format (G1 
operator responses to run-time messages H-1 
overlay 2 header card scan G-3 
overlay 3 file description scan G5 
overlay 4 file extension scan G-—10 
overlay 6 input specifications scan G14 
overlay 7 calculation specifications scan G-19 
overlay © output specifications scan G22 
overlay 11 file extension/line counter generation G26 
overlay 13 calculation generator G-27 
overlay 14 output generator G-30 
overlay 15 code formatter c-—31 
responses by operator H-1 
run—time H-1 
Furopean Convention date format 85,817 
examples of coding 
alphanumeric and numeric literals 7-2 
alternate collating sequence 2—7 
constant information 8-24 
look-ahead fields 6-18 
match fields 6-° 
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examples of coding (continued) 
record types with identical fields 6-26 
report line—to--channel number relation 5~6 
spread cards 6-19 
exception (EXCPT) operation 7-23 
exception output 7—23,82 
exception records &-2 
(see also "EXCPT operation code") 
EXCPT (exception) operation code ‘7-23 
overflow printing with EXCPT 3-15,%2 
execute subroutine (EXSR) operation ‘7-22 
execution 
entering data during 7-24 
object program 1-11 
stage of object program (see "RPC II System description") 
storage required to execute 2-3 
execution time array 
building via calculations 4—9,4--10 
definition 4-3 
I'xtension sheet 4-10 
format 4-6 
loading 4-—%3,4--6 
sequence 4-17 
specifications 4-10 
executive routine (see "compiler executive routine") 
eXIT operation ‘7--27 
EXSK (execute subroutine) operation code 7-22 
EXTENSION CODF entry 
Extension Specifications Sheet 4—1 
external characters ar translation) 2-10 
external indicators (U1—U8) 
(see also "indicators" ) 
as field record relation indicators 6=30, 7-15 
as output indicators &14 
assigning on File Description sheet 3-22 
general information B19 
with demand files 7—25 
external linkage operations 7-26, F-1 
external subroutine linkage F-1 


Factor 1 
arithmetic operations 7--3 
debug operation 7-28 
move operations 7-6 
subroutine operations 7-21 
FACTOR 1 entry 7--34 
Factor 2 
arithmetic operations ‘7-3 
debug operation 7—2& 
GOTO operation 7-17 
move operations 7-6 
Sign process specification 2-8 
TAG operation 7-17 
FACTOR 2 entry 7-34 
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fetching the overflow routine 
veneral information 8-3 
tput sheet entry 8-10 
field 
alphanumeric 2-6 
binary 6-6 
control 67 
index 7-20 
key 3-5 
length 6~23 
look-ahead (see "look-ahead field") 
match 6-27 
numeric 2-9,6—3,6-9 
numeric control fields 6-8 
packed decimal 6-4,6-5 
result field ‘7-37 
split control fields 6-9 
spread cards 6-2 
unpacked decimal 6-3 
zeroing 8-20 
field description entries 6~23,8-1 
field indicators 
assigning on Input sheet 6-32 
controlling calculations and output 7-1, 7-32 
FIELD INDICATORS entry 6-32 
field length 
(see also "length") 
compare operations ‘7-10 
ey field” 5 
relation to decimal positions 7-28. 
FIELD LOCATION entry (Input sheet) 6-23 
field name 6-7 
control fields 6-8 
cross—reference listing 2-12 
definition 6-7 
Input sheet entry 6-25 
length 6-7 
match fields 6-28 
OR relationship 6~25 
Output sheet entry 8-15 
PAGE, PAGE1, PAGE2 special words 6~—7,6-26,8-16 
*PLACE special word 8-16 
special word entries 8-16 
split control field 6-9 
table name used as 4-10 
used as index ‘7-20 
valid RPG II field name (definition) 6-25 
with edit words 822 
FIELD NAME entry 
Calculations sheet ‘7-34 
Input sheet 6-25 
Output sheet 8-15 
field record relation 6~-30,7-—14 
FIELD RECORD RELATION INDICATOR entry 6-29 
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file 

(see also "end--of—file"; "File Description Specifications 
Sheet"; "multifile processing"; and individual file types) 

ADDROUT 3—4 

allocation of space D~1 

array 

chained 3—3,3--13 

definition 34 

demand 3—4 

designations 33 

direct (see "direct file") 

disc (see "indexed files"; "relative files"; "disc files") 

display 3-2 

indexed (see "indexed file") 

input 3-2 

organization 3—5,3—135 

output 3-2 

primary 3—5 

record address 3—4 

relative 3-5,3—13 

secondary 3—3,3-13 

ra ear see "sequential file") 

SPECIAL E-2 

table or array 3-4 

types 3-2 38 


file addition 3~22 
(see also "adding records to files") 
File Description sheet entry 3-22 
relation to file type entry 6-13 
FILE ADDITION entry 3-22 
file and record type identification entries 6-13 
file condition 3-23 
(see also "external indicators") 
File Description sheet entry 3-23 
FILF CONDITION entry 3-2 
File Description Specifications Sheet 3-1 
file description scan error messages G—5 
file designation 
file extension scan error messages G-10 
file extension/line counter genération error messages C~26 
FILE FORMAT entry 3-10 
filename 
cross—reference listing 2-12 
"from" filename (Extension sheet) 4-12 
Input sheet entry 6-13 | 
length 3~7 
Line Counter sheet entry 5-3 
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filename (cont 7d) 
Output sheet entry 8-7 
pre~execution time table and array filenames 3~f 
"to" filename (Extension sheet) 4-12 
valid RPG II filename (definition) 3+7 
FILENAME entry 
File Description sheet 3—7 
Input sheet 6-13 
Line Counter sheet 5-3 
Output sheet 8-7 
file organization 3-—5,3-13 
FILE ORGANIZATION ENTRY 3-14 
file processing (see "processing methods") 
file translation 
Control Card entry (col. 43) 2-10 
definition 2-10 
format of table records 2—11 
placement of table in source deck 1-7 
specifications 2-10 
FILE TRANSLATION entry 2-10 
file types 3-2 | 
(see also "file") 
first page (1P) indicator 
(see also "1P indicator"; "indicaturs, fist page") 
assignment on Output sheet 
porns fore erone 2-9 
gener information ‘7-16 
restriction with record types 8-14 
summary tables B-2,B-3 
fixed-length format 3-11 
apes oe dollar sign 
in edited fields 8&5 
with edit code &22 
tlowchart, RPG II program logic 
detailed A-1 
ral 1-2 
FORCE (force) operation code 7-23 
comparison with READ operation code 7-24 
format 
alternating (see "related tables and arrays"; "arrays"; "tables") 
date field 8-5 
error message (O--1 
save area with EXIT operation ‘7-27 
stored data 3-11 
formatting edit words 8-22 
FORM LENGTH (FL) OR CHANNEL NO. entry 5-4 
FORMS POSITIONING entry 2-9 
form type (see "type of form") 
"FROM" FILENAME entry 4-12 
full table or array 
definition 4-4 
number of entries per table or array 
(Extension sheet) 4-15 
function of RPG II 1+1 
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general object id ogram logic 1~11 
generation of object program ants "compilation" ) 
glossary (definition rf terms) C-1 
GOTO (go to) o eration code 7-16 

(see also "TAG" 

use with subroutines in calculations 7-16 
group operations (see "total operations" ) 


HALF~ADJUST entry 7-36 
halt indicators (HO—-H9) 
(see also "indicators" ) 
assigning on Input sheet 6-17 
Calculation sheet uses 
operation indicators ‘[-—33 
resulting indicators 7-3° 
field indicator (Input sheet) 6--32 
field record relation 6-29 
poner description 7-14 
tput sheet use 13 
record identifying indicator 6-17 
summary tables F-2,B- 
header card (Control Card) 2-1 
spread cards 6-2 
header card scan error messages G=3 
heading (H) output records 
HIGH-LEVEL DIRECTORY SIZE entry 3-22 
housekeeping tasks 1-11 
HO-E9 (see "halt indicators"; "indicators" ) 


identification 
of programs (see Pr oeran identification entries") 
of record types 
IGNORE ARITHMETIC OVERFION entry 2-13 
index 
array 4-2 
(see also n indexed file") 
as field name 7-20 
File peccri orion entry 3-21 
in searching ‘J~20 
definition 
INDFX BUFFER SIZE entry 3-21 
indexed file 
addition of records 329, 7-26 
ADDROUT processing 3-14 
contents 3-5 
file addition entry 3—22 
general information 3-5 
key 5—5 9 3—1 3 
key field starting location 3-16 
loading 3-5 
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indexed file (contd) 
processing 3-13,3-14,7—25 
random processing 3~19 
searching ‘7-20 
track addresses 3-19 
INDICATOR entry 
Calculation sheet 7-3 
Output sheet &14 — 
indicator cross-reference list 2—12 
indicators 2 
(see also "DEBUG operation code"; individual indicators) 
blank condition 6~33 
Calculation sheet 
AND relationship of indicators 7-32 
control level (cols. 7-8) 7-31 
operation indicators (cols. 9-17) 7-33 
resulting indicators 7-39 : 
summary tables B-2,B-3 
field indicator 6-32 
Output sheet 8-13 
summary tables B-2,B~3 
control level (L1—L9) 
assigning on Input sheet 6-27 
Calculation sheet entries 7-31 
field indicator 6—32,7-15 
field record relation 6-31 
turning on or off 7-15 
cross—reference listing of 2—12 
end-of~job (LR 
(see also "last record indicator") | 
Calculation sheet use 7-31 
field indicator 6-32 
input sheet use 6~—15,6~32 
operation indicator 7—33 
Output sheet use 814 
summary tables B-2,B-3 — 
total output operations 1-13 
external (U1—U8) 
asSigning on File Description sheet 3~23 
Calculation sheet entry 7—25 
conditioning indicators. ‘7-15 
field indicator 6-32,7-14 
field record relation 6~30,7-—15 
general description 7-15 
operation indicator 7-15,7—33 
Output entries 814 — 
summary tables B-2,B-3 
with demand file 7-25 
field (01-99) 
assigning on Input sheet 6-32,7~14 
Calculation sheet uses 7-40 
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indicators (continued) 


aeedag description 6-32 
tput sheet uses 814 
summary tables B-2,B-3 
turned on or off before GOTO 7-17 
field record relation 6-29,7-—14 
file conditioning (U1-U8) (see "external indicators") 
File Description sheet 
file conditioning 3-23 
overflow indicators 3-15 
first page (1P) 
assigning on Output sheet 8&--13 
field indicator 6-32,7-16 
operation indicator 7—16,7~34 
Output sheet use 8-14 
restriction with output fields &14 
summary tables Bo, BS 
general description 7-14 
halt (HO~H9) 
assigning or Input sheet 6-15,6-29,6—32 
Calculation sheet use 7-—33,7-39 
controlling error conditions 6-33 
detail output operations 7-13 
field indicator 6~-32 
field record relation 6—-30,6-31 
general description 7~14 
operation indicator ‘7~33 
Output sheet use 814 
summary tables B-2,B—3 
Input sheet 
control level 6-27 
field indicator 6-32 
field record relation 6-29 
record indicator 6=—15 
summary tables B-2,B-3 
last record (see "indicator, end—of—job"; "last record 
indicator" 
level zero (IO) 
assigning on Calculation sheet 7-31 
operation indicator 7-33 
Output sheet use 814 
summary tables B-2,B-3 
matching record (MR) 
(see also "multifile processing"; "match fields") 
assigning match fields 6-28 
Calculation sheet uses 7-—33,7-39 
field indicator 6-32 
field record relation 6-30 
general information 7--30 
operation indicator ‘7--33 
Output sheet uses 8-14 
summary tables B-2,B-3 
turned on or off before GOTO 7-17 
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indicators (continued) 
minus condition 6-33 
numeric ‘7-14 
operation 7-14,7-33 | 
output &14 
AND and OR lines 8-8 
as field name 8-15 
overflow indicators 8-13 
to condition output fields 7-14 
overflow (OA-OG,OV) - 7 
(see also "overflow indicator") 
assigning on File Description sheet 3-15 
Calculation sheet entries 7-33,7-39 
conditioning 7-15 — 
fetching the overflow routine 8-7,8-10 
field indicator 6—-32,7~14 
general information 82 
Line Counter specifications 5-4 
operation indicator 7-14,7-34 
Output sheet entry %14 
restriction with exception lines ‘7-23,8-2 
result indicator 7-14 
summary tables B-2,B-3 
turning on or off ‘7-14 
with GOTO 7-17 
plus condition 6—32 
record identifying (01-99) 
ussigning on Input sheet 6-15 
field indicator 32 
field record relation 6-29 
Input sheet use 7-1 
Output sheet use 8-14 
summary tables B-2,B-3 
with GOTO 7-17 | , 
referencing in EXIT and RLABL operations ‘7-27 
Posuit ine 01-99) 
Calculation sheet entries 7-14, 7-33 
field indicator 6-32 
operation indicator ‘7-33 
Output sheet use 8-14 
summary tables B-2,B-3 
use with CHAIN operation code 7-25,7-39 
use with GOTO operation code ‘7-17 
use with LOKUP operation code ‘7-18, 7-39 
use with READ operation code 7-—24,7-39 
use with TESTBR operation code 7-12,7—39 
setting (SETON; SETOF) 7-13 
ares. tables B-2,B-—3 
with GOTO operation 7-17 
with RPG II label {RLABL) eperati on 7-27 
with test bit (TESTB) operation ‘7—12,7—39 
valid indicators (table) B-2 . 
zero or blank condition 6—33 
indicator setting operations ‘7-13 
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indicators specified with RLABL 7-27 
input file 3-2 

conditioning 3-23 

end—of~file code 3-9 

file condition entry 3-23 

look-ahead fields 6-2 

match fields 6-28 

sequence entry 

File Description sheet 3-10 
Extension sheet 4-17 

special device support 3-19 

standard device assignment 3-18 

substitute device assignment 3-12,3-19 

"to" filename entry 4-13 
input operations in object program operating cycle 1-11 
input/output device (see "device") 
input/output, programmed control of ‘7-23 
input specification scan error messages G-14 
Input Specifications sheet 6-1 
inserting new records (see "adding records to a file") 
integer digits in arithmetic operations 7-3 
internal character (file translation) 2-10 
INVERTED PRINT entry 2-4 
inverted print option 2-4,8-5 
item 

editing array items 4-10 

number of items on each record entry 4-14 

numeric format 4-16 

processing 4-9 

referencing via calculation specifications 4-8 
iterated fields 8-4 


JCL (see "Control Language Statements" ) 


K (1,024 bytes of main storage) 1-10,2-3 
key 3-5 
(see also “indexed files"; "record address files"; "record key") 
random processing by 3-12, 
sequential processing by (indexed file) 3-13,7-25 
keyboard (see "console" 
key field 3-5 
definition 3-5 
length (File Description cols. 29-30) 3-13 
starting location (File Description cols. 35-38) 3-16 


labels 321 
last record indicator 
(see also "indicator, end—of—job") 
Calculation sheet use 7-25 
Output sheet use 814 
record identifying indicator (Input sheet) 6-15 
summary tables RB-2,B-—3 
with tables and arrays 4-9 
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leading zero suppression (see "zero suppression") 
length of 
array name 4-2 
block (see "block length") 
date fieid 8-17 
edit word 8-22 
field 
arithmetic operations ‘7-3 
compare operations 7-10 
field name 6-7 
filename 3-7 
form (number of lines per page) 5~4 
item 4-15 
key field (File Description cols. 29-30) 3-13 
numeric literals 7-2 | 
record address field (File Description cols. 29-30) 3-12 
record (File Description cols. 24-27) 3~11 
result field (Calculations cols. 49-51) 7—3& 
table 7-19 
LENGTH OF BLOCK entry 3-11 
LENGTH OF ITEM entry 4-15 i 
LENGTH OF KEY FIELD OR RECORD ADDRESS FIELD entry 3-13 
LENGTH OF RECORD ony 3—11 
(see also "record length") | 
level, control (see "control level") 
level zero indicator (see “indicator, level zero") 
library, object 2-3 
limits processing 3-—13,7-25 
(see also "indexed file"; "record address file") 
Line Counter Specifications Sheet 5-1 
carriage control type specification 2-12 
LINE NO. entry 5-5 | 
line number 
coding lines 2-2 
lines available entry 53 
number of lines. per page 5-1,5~3 
overflow line 5-1. . 
LINE NUMBER entry 
Calculation sheet 7-30 
Control Card sheet 2-2 
Extension sheet 4~11 
File Description sheet 3-7 
Input sheet 6-12 
Line Counter sheet 5-2 
Output sheet &7 
line, overflow 8-3 
LINES AVAILABLE OR LINE NO. entry 5-3 
line—to—channel number relation 5S 
linkage 7 
normal ‘7-27, E-1 , 
of special files E-2 
linkage editor : 
CLS specifications F-3 
description 1-10 
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list of messages by overlay number G~1 
literal (Calculations sheet) 6-2 
(see also "constant") 
examples 6-2 
opecifying bits 7-11 
used as index for arrays 7-20 
loading 
arrays 4—3,4-5,4-6 
considerations 4-3 
direct files 3-—12,7-26 
indexed files 3-5 
load module 1-10 
location of field (Input sheet entry) 6=-2% 
logic of RPG II object program 
detailed A-1 
general 1-11 
LOKUP (lookup) operation code 7-18 
assigning indicators ‘7-18 
referencing found table items 4—9,7~—20 
resulting indicators with 7-18 
searching started at a particular array item 4-8, 7~20 
with an array 4-2,4-8,7-—20 
with one table 4—2,4-9,6—16,7-—1° 
with two tables 4-9,6-16,7-19 
look-ahead fields 6—2,6-17 
example 6-18 
Input sheet entries 6-17 
specifications 6—17 
with primary and secondary files 6-2 
lookup operation (see "LOKUP") 7-1 
LR (last record) indicator 
see also "last record indicator"; "end-of—job indicator") 
Calculation sheet use 7—32,7-—33, 7--3° 
Output sheet use 8-13 : 
record identifying indicator (Input sheet) 6-16 
summary tables RB-2,B-3 
total output operations 1-135,7-15 
LO dhe zero) indicator 
see also "indicatorrs, level zero") 
assigning on Calculation sheet 7-32,7-33, 7-39 
Output sheet use &13 
summary tables B-2,B-3 
L1i-L9 (control level) indicators 
(see also "control level indicators"; "indicators, control level") 
as field record relation 6-29 
assigning on Input sheet 6-9,6-27 
Calculation sheet use 7-13 
Output sheet use &13 
record identifying indicator 6-16 
resulting indicators (Calculations sheet) 7-39 
summary tables B-2,B-3 
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machine 
code 2=11,6—3 
configuration 1-10 
requirements 1--10 
machine language program 1—3 
main storage (memory : 
amount required for decimal representation in the computer 6-5 
storage needed to execute (Control Card entry) 2-3 
match fields 10 
(see also "multifile processing") 
assigning (rules) 6+28 
end—of—file code 3-9 
Soe 6-29 
field record relation 6-30 
Input sheet entry 6-27 
used for multifile eo. 6—10 
used for sequence checking 27 
sequence checking 3~-10,6-27 
sequence entry (file description) 3-10 
MATCH FIELDS entry 6-27 
matching level identifier rey 611 
matching record indicator (MR) 6-11 
(see also "indicators" ) 
as field record relation 6~31 
assigning match fields 6-28 
Calculations sheet entry ‘7--33,7—39 
detail calculations 1-13 
Output sheet entry 8-13 
when turned on 6—10,6—11 
matching records 6—10 
(see also "match fields"; "matching record indicator"; 
"end of file") 
end-of-file code 3-10 
Memorex devices 3--18,3-19 
memory required for packed decimal representation 6-5 
method (mode) of processing Se Description entry) 3-12 
MHHZO (move high to high zone) operation code 7-9 
MHLZO (move high to low zone) operation code 7-9 
MINUS entry 33 
minus sign (see "sign") 
MLHZO pve low to high zone) operation code 7-10 
MLLZO (move low to low zone) operation code 7-9 
mode of operation (see "compiler, design") 
mode of processing 12 
(see also "processing mode") 
modifying contents of tables and arrays 4-8 
module, load 1-10 
MOVEL (move left) operation code 7~7 
summary table B-6 
MOVE (move) operation code 7-7 
summary table B-6 
move operations ‘7-6 
sign process i? ek ded caterer 2-8 
move remainder (MVR) operation 7-5 
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move zone operations 7-9 
MR ae record indicator) 
see also "indicators"; "matching record indicator") 
field record relation 6-29 
summary tables B-2,B- 
use with match fields 6-28 
multifile processing 6-10 
(see also "end of file"; "matching record indicator") 
end—of~file code 3-9 
file designation entry 3-9 
freneral discussion 6-10 
match fields 6-10 
assigning match fields (rules) 6-27 
Input sheet entry 6-27 
selection of records (input) 6-10 
with FORCE operation 7-23 
MULT (multiply) operation code 7-5 
summary table B-6 
multiply (MULT) operation code 7-5 
MVR (move remainder) operation code 7-5 
(see also "DIV operation code") : 
M1-M9 entry (match fields) 6-27 


N (not) (see "NOT entries"; "NOT ON entry") 
name 
array (Extension sheet entry) 4-2 
field 6—7 
Calculation sheet entry 7-34 
ed sheet entry 6-25 
Output sheet entry 8-15 
program (see "program identification entry") 
result field ‘7-38 
subroutine ‘/-27 
table (Extension sheet entry) 42 
table or array name entry 4-14 
negative balance (CR) (see "edit word") 
negative numbers 6-22 


(see also "packed or binary field"; "character structure") 


formation in punched card 6-22 
packed decir format 6—4 
packed decimal representation in the computer 6-5 
unpacked decimal format 6-3 

non—standard labels 3-21 

no overflow processing 8-2 

normal collating sequence 2--5 

NOT entries 6-20 

NOT ON entries 
Calculation sheet 7-33 
Output sheet &15 

NUMBER entry 6-14 

numbering lines on coding sheets 2-2 
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numbering report ‘es (PAGE special word) 
Ingut sheet Ma ee 6 (Be 
Output sheet entry 8-16 
restarting numbering sequence 6-27 
number (Input sheet col. 17) 6-1 
number, negative (see "negative number") 
number | 
of entries per record (Extension sheet) 4-14 
of entries per table or array (Extension sheet) 4-15 
of replaceable characters in an edit word 8-22 
NUMBER OF ITEMS IN TABLE OR ARRAY entry 4~15 
NUMBER OF ITEMS ON EACH RECORD ent 4—14 
numeric characters (see "character" 
numeric field 
conversion 6-3,6—26,7-—6 
date fields &5 
format 6—3 
binary 6-6 
packed decimal 6-4 
unpacked decimal 6-3 
length (see "length") 
literals 7-2 
match fields 6-28 
moving 7-6 
OR relationship 6-14,6-25 
PAGE fields 8-16 
sign 6-3 
numeric field (continued) 
Sign process specification 2-8 
testing 6-32 
with edit words 822 
numeric indicators ‘7-14 
numeric literals ‘7-2 
Calculation sheet uses 7-2 
example 7-2 
inverted print specifications 2-4 
maximum length ‘/~2 
numeric table or array 4-15 


OA~OG, OV (overflow indicators) 


29 


(see also "overflow"; "overflow indicators"; "indicator, overflow' 


assigning on File Description sheet 3-15 
Calculation sheet use 7—33,7~-39 
Output sheet use 8~13 
when turned on 54 

object library 2-3 

object module 1-10 

OBJECT OUTPUT entry 2-3 

object program 
(see also "RPG II system description") 
code—fornatter pies? of compiler 1-° 
description 1-11 
disposition from object library 2-3 
execution 1-11 


object program (continued) 


generation (see sig tao 


identification (see 
listing 1-10 
Logic 
detailed A-1 
general 1—11 
output &1 
preparation for execution 
size 1-10 
storage 1~-10,2-3 


operating mode (see "compiler design") 


operation 
arithmetic ‘7-3 
Calculation sheet entry 
detail 1-11 
summary tables R-6 


1-10 


1-35 


with individual. array items 4-8 


operational environment H-1 
operation codes ‘7-3 


(see also pee attenn individual operation codes ) 


arithmetic 
ADD (add) ‘7-4 
te divide) ie 
MULT (multiply) 7-5 
MVR (move a ah 


1-5 


SQRT (squere root) 7-5 


SUB (subtract) 7-4 


Z-ADD 
Z—-SUB 
binary field operations 


zero and add 


XFOOT izero an aw 


zero and pega 7=—4 
BITOF (set bit off) 7T- 
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BITON (set bit on) 7-11 


TESTB (test bit) ie 
branchi ope eee 7—16 

GOTO (go to) 7-16 

TAG (tag). 7-17 


compare and testing ee 7-10 


COMP (compare) 7-10 


TESTZ (test zone) J—11 


debug operation 7-28 
DEBUG (detug) 7-28 


external linkage operations 7-26 


EXIT J-27 
RLABL 7-27 
ULABL ‘J=-22 


lookup operation ‘7-18 
LOKUP (lookup) 7-12 

move operations 7-6 
MOVE (move) 7-7 
MOVEL (move left) 7-7 


INDEX 


‘program identification entry") 


PAGF 
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operation codes (continued) 
move zone operations 7-9 
MHHZO (move high to high zone) 7-9 
MHLZO (move high to low aus 7-9 
MLHZO (move low to high zone) 7~10 
MLLZO {move low to low zone) 7-9 
programmed control of input and output 7-23 


CHAIN (chain) 7- 
DSPLY (display) 7-24 
EXCPT (exception) 7-23 
FORCE (force) 723 
READ (read) 7-24 
setting indicators ‘7-13 
SETOF (set off) ‘7-13 
SETON (set on) 7-13 
subroutine operations 7~21 
BEGSR (begin subroutine) 7-22 
ENDSR (end subroutine) 7-22 
EXSR (execute subroutine) 7-22 
summary table B-6 
OPERATION entry 7-35 
OPERATION INDICATORS entries ‘7-32 
Bus responses to error concitions H~1 
OPTION entry 6—15 
option {Input sheet col. 18) 6=15 
OR entry 8 
OR relationship 
(see also "AN and OR lines"; "AND and OR lines") 
Calculation sheet ‘7-32 
Input sheet 
example 6-25 
fields in OR relationship 6-25 
field name 6-25 
field record relation 6-30 
number 6-14 | 
option 6-15 
record codes 6-20 
record indicators 6-22 
stacker select 6-22 
Output sheet ; 
output indicators 813 
stacker/overflow 8-10 
stacker selection 6-22,8-10 
output | 
definition &-1 
detail 8-2 
exception 8-2 
heading 8&2 
table and array 4-9 
total 1-13 
output device (see "device") 
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output fields . 
entering fields on Seow ere 8~15 
seria name entry 

ating (*PLACE) 8-16 

dtr file 
conditioning 3-23 
definition 32 
extension code 3—16 
file condition entry 
sequence entry (file =e 3-10 
special device support 3--1 
standard device assignment 3-18 
substitute device assignment 3-18,3~-19 
table or array 4-9 
"to" filename entry 4-13 

Output—Format Specifications Sheet 8&1 

output generator error messages 6-50 

output indicators (Output sheet entry) 8-13 
AND and OR lines 8&8 
restarting page numbering 8-16 
total output operation 1--13 

OUTPUT INDICATORS entries &-13 

output specifications scan error messages G=22 

overflow 
arithmetic 2-13 
assigning overflow line 8-3 
automatic 
fetching 8&-3,8-10 
general considerations 3--15,5—4 
normal processing 3 
printer file 8-9 
printing (with EXCPT operation) 3-15 
routine 8-3 
spacing and skippi 315 55-5, S53 
steps_do fone after’ overflow "5-4 


with STON and SETOF 3=15 
overflow indicator 
(see also "overflow" ) 
assigning on File Description sheet 3-15 
Calculation sheet use 7~33,7-39 
general description ‘J~14 
in spacing 8-10 
Output sheet use 3—15,8-2,8-10 
summary tables B-2 ,B-5 
when turned on 5—4, Ia17 
with EXCPT operation code 3—15,8-2 
with GOTO 7-17 
with SETON and SETOF 3~15 
overflow line 
channel oe te 5—6 
description 
OVERFLOW LINE (or) OR CHANNEY NO. entry 5=—5 
OVERFLOW LINE NO. OR LINE NO. entry 5-4 


De 


INDEX 


overlay error messages (see “error messages") 


packed decimal coding 6-5 
packed decimal format 6-4 
(see also "packed or binary fields") 
packed decimal representation 6~5 
PACKED OR BINARY FIELD entry 8-21 
Extension sheet 4~16 
Input sheet 6--23 
Output sheet 8-21 
packed or binary fields 
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(see also "fields"; "binary format"; "packed decimal format"; 


"unpacked decimal format") 
Extension sheet entry 4—16 
Input sheet entry 6-23 
Output sheet entry 8-21 
page count in forms positioning 2-9 


pe e field (see "PAGE NUMBER entry"; "special words") 


FE NUMBER entry 
Calculations sheet ‘7-30 
Control Card sheet 2~2 
Extension sheet 4-11 
File Description sheet 3~6 
Input sheet 6-11 
Line Counter sheet 5-2 
Output sheet 8-6 
re numbering 8-4 
i eatertine cor output 6-27,816 
specifications sheets 2-2 
PAGE, PAGE1, PAGF2 8-4,8~-16 
(see also "page numbering"; "special words") 
field names on Input sheet 6-26 
parameters 
CLS //PAR card F2 
SPECIAL file Ee 
phases of the compiler 1-9 
*PLACE special word (see "*" on first page of index) 
PLUS entry 6-32 : 
PORTION entries 6-21 
POSITION entries 6-20 
positioning printer forms 2~9 
positive number 6-22 
formation in punched card 6-22 
packed deci format 6-4 


packed decimal representation in the computer 6-5 


unpacked decimal format 6--4.. 
pre—execution time tables and arrays 

definition 3-4,4—3 — 

format 4-6 

"from" filename entry 4-12 

loading 4-3,4--6 

sequence 4-17 

specifications 4-10 
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primary file 
(see also "multifile processing"; "match fields") 
conditioning 23-3 
end—of-file code 34-9 
file condition entry 3-23 
file designation entry 3-3 
processing 3~—12,3~135,6—10 
Special device support 3—19 
standard device assignment 3-18 
substitute device oa na 3-18, 3-19 
printable characters 6- 
print chart coding form 1-14 
printer 
(see also "carriage control tape"; "console") 
assignment 3-18, 3~-19 
block length D-1 
device names 3-17 
file (see "print file"; "output file") 
forms alignment 2-9 
print file 
(see also "output file”) 
extension code 2-16 
line counter specifications 5-1 
page numbering &4 
print lines, number on e or form 5—1,5~3 
processing methods ies ii 
(see also individual file types; individual processing methods) 
consecutive 3--12,3-13,7-25 
direct file load 3-12,7-—26 
multifile (see "multifile processing") 
output records &2 
overflow &3 
random by ADDROUT file 3--13 
random by key 3-1 
random by relative record number 3-13 
sequential by key 3~—13,7-25 | 
Ne within limits 3—13,7--25 
PROCESSING MODE entry 3-12 
rogram 
- compilation (see "compiler" ) 
cycle (see "RPG II System description operating cycle") 
indicators (summary tables) B-2,B-3 
logic (see "program logic" 
name (see "program identification entry") 
object fakes "object es Se 
source (see "source program" 
PROGRAM IDENTIFICATION entry 
Calculation sheet 7—41 
Control Card sheet 2-14 
Extension sheet 4-18 
File Description sheet 3--23 
Input sheet 6-34 
Line Counter sheet 5-7 
Output sheet 8-24 
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program logic 
see also "RPG II System description") 
detailed A-1 
general 1-11 ‘ 
propresmed control of input and output ‘7~23 
punc 
(see also "device" ) 
assignment 3-18,3-19 
punching on cards 6—3,6-21,8-21 


RA file (see "record address file") 
random processing 3—12,3—153 
(see also "processing methods") 
index files 3-22 
relative record number 3~-15 
READ (read) operation code 7~24 
(see also "demand file") 
assignment 3-18,3-19 
device assignment 3-18,3-19 | 
record addition to files (see "adding records to files") 
record address file 3-4 
(see also "ADDROUT file") 
conditioning 3-23 
definition 3—4 
end~of-—file code 3-9 
extension code (File Description col. 39) 3-16 
Extension sheet entries 4—12,4—13 
file condition entry 23 
"from" filename_entry 4-12 
processing 2 
record address field 3~13 
record address type (File Description col. 31) 3-14 
standard device assignment 
special device support 3-19 
substitute device assignment 3-18,3-19 
"to" filename entry 4-13 | 
record address type 3-14 
(see also "record type") 
RECORD ADDRESS TYPE entry 3-14 
record code 19 
RECORD CODE CHARACTERS entry 6-19 
record description entries 8&1 
definition 
record identifying indicators 6-2 
(see also "indicators" 
AND and OR lines 6-25 a 
assigni on Input sheet “15 
used for field record relations 6-2° 
‘record indicator 6-1 | 3 
see also "indicators"; "match fields") 
general discussion 6~—16 
RECORD INDICATOR entry 6-15 
record key 3-5,3~-13 
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record length 3-11 
(see also "length") 
variable-length records 3~11 
record relation (see "field record relation") 
record selection (input 
in multifile processing 6-10 
with FORCE operation code 7-23 
record type 
(see also "record address type") . 
coding for identical types (example) 6-26 
field indicators 6-32 
field record relation 6-30 
fields 7 
identification 6=19 
match fields 6-28 
OR relationship 6-25,8-9 
output records 8&2,8-8 
processing 6-2,6~19 
sequence checking 6-13 
reference tables FE-1 
referencing 
array items via calculations 4-& 
arrays 4-2,4—8 
table items via calculations 7~20 
tables 4~—9 
register usage with EXIT 7-27 
related tables and errays 4-10,4-14 
(see also "tables"; "arrays" 
relating report lines to channel numbers 5-5 
relative files 
definition 3-5 
file addition entry 3~22 
loading 3-14 
processing 3-13,3-14 
relative record number 
(see also "CHAIN operation code”; "relative files") 
bin 3—4 
defination 3—5 
random processing by 3~—13 
with direct files 7-26 
remainder (see "MVR operation code") 
repeatin 
operations (see "GOTO and TAG") 
output fields (*PLACE) 8-4 
output lines (exception output) 8-2 
replaceable characters 86 
general discussion 8-22 
report dates 8-5 
generation 1-13 
line—to~channel number relation 5-5 
resetting fields to blanks or zeros 8-20 


36 


INDEX 


result field 
arithmetic operations 7-3 
debug operation 7-28 
move operations 7-6 
sign process specification 2-8 
UDATE, UMONTH, UDAY, UYEAR use 7-27 
using table or array name 4~-8,7— 
MOULT FIELD entry 7-37 
RESULT FIELD LENGTH entry ‘7~38 
resulting indicators 
Calculation sheet entry 7-39 
general discussion 7-39 
with CHAIN ‘7—25, 7-39 
with LOKUP 7—15,7—39 
with READ 7-24,‘(~-39 
with TESTB 7-12, 7-39 
RESULTING INDICATORS entry 7-39 
RLABL operation 7-27 | 
rounding numbers in result field (half-adjusting) 
RPG II Jabel (RLABL) operation code 7-27 
RPG II System description 
analysis stage 
coding specifications sheets 1-5 
definition 1—3 
organizing job requirements 1-5 
punching the source program deck 1-6 
steps in processing flow 
definition of steps 1-3 
detailed description 1-5 
illustration 1- 
applications 1-1 
bit combinations 2-8 
compilation stage 
definition 1-3 
error correction 1-10 
initiating compilation 1-10 | 
minimum machine configuration 1-10 
object program storage 1~—9 
source program compilation 1~9 
steps in processing flow 
definition of st 1-3 
detailed description 1~9 
illustration 1-2 
time requirement 1-10 
definition 1-1 
execution stage 
definition 1~3 
object program execution 1~11 
program logic segments 1-11 
report generation 1-13 
steps in processing flow 
definition of steps 1—4 
detailed description 1—4 
illustration 1~2 
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RPG II System description (continued) 

operating cycle 
alteration for I/O operations 7-23 
description 1-11 
illustration 1-12 

operating steps 1-3 

overview 1-1 

program logic 1--11 

purpose 1~1 


save area format with EXIT 7-27 
searching 

(see also "LOKUP operation code") 

single table searching 7-19 

with two tables involved 7-19 
search word (see "LOKUP operation code") 
secondary file 

(see also "multifile processing"; "match fields") 

conditioning 3-23 

end—of~file code 3-9 

file condition entry 3-23 

file designation entry 3—3 

processing 3-12,3-13,6-10 

special device support 3-19 

standard device assignment 3-18 

substitute device assignment 3-18,3-19 
selection of records on input 6-10 

(see also "multifile processing" ) 
sequence | 

(see also "sequence checking") 

assigning numbers 6-14 

covlatine (see "collating sequence" ) 

error 6-15 | 

Fxtension sheet entry 4-17 

File Description sheet entry 3-10 

Input sheet entry 6-1 

record type 6-14 

source sequence checking 2-13 
sequence checking 

collating sequence 2—5 

compare operations ‘7-10 

control card entry 2-13 

File Description sheet entry 3-10 

input records 6-13 

LOKUP operation 7-19 

using match eer (i11-M9) 6-28 
ee uenced group 6-14 

QUENCE entry 

Extension sheet 4-17 

rile Description sheet 3-10 

Input sheet 6-13 


38 


INDEX PAGF 


sequential file 
adding records 3=-22,7-26 
definition 3-6 
File Description chart 3—13 
loading 3-14 
processing 3-13,3-14,7-25 
sequential roe” 
by key 13, 7-2 
within limits 3—13, 7-25 
SETOF eee off) operation code 7-13 
SETON (set on) operation code 713 
setting indicators 7-13 
short table or array 4—4 


sign 
binary format 6-6 
forcing 2-8 


in edited fields 8-5,823 
minus 85,823 
move left operation ‘7-7 
move operation ‘[-7 
‘negative fields 8-5 
numeric field 6-3,8-15 
numeric literals ‘7-2 
packed decimal format 6-4 
Sign process specification 2-9 
ul areca decimal format 6-3 
valid signs 2-8 
SIGN PROCESS entry 2-8 
size 
high-level directory 3-22 
index buffer 3—21 
SKIP entry _8&12 
skipping calculations using GOTO 7-16 
skipping operations 
Tees "branching operations") 
skip specification 
automatic skipping to top of forms &~3 
carriage control tape 2=14,8- &-10 
Output sheet entry &12 
with space specification 8-12 
source deck 
card arrangement 1—6 
contents 1-4 
control card 2--1 
creation 1-1, 1-6 
illustration 1--7 
in analysis stage 1--4 
in compilation stage 1-4 
initiating the compilation process 1-10 
translation to machine instructions 1-3 
source program 
compilation 1-9 
creation 1—1,1- 
ending record. 2-6 
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source program (cont:inued) 

error correction 1-10 

size 1-10 
SOURCE SEQUENCE CHECK entry 2=13 
SPACE entry &10 
spacing 

automatic 2-13 

line counter specifications 5-1 

line pa ee 8-10 
special characters definition C-1 

in edited fields &5 
SPECIAL (device entry) 3-19 
special device support 3-18 
special file 3-20 
special file linkage FE-2 
special file parameter list E~2 
special words 

(see also individual words) 

Input sheet use 6-26 

Output sheet use 6-16 

PAGE, PACE1, PAGEF2 8-16 

*PLACE 816 

UDATF, UNAY, UMONTH, UYFAR &-17 
specifications 

Calculation 7-30 

Control Card 2-1 

Fxtension 4-11 

File Description 3—6 

reneral description and ordering of 1-5 

nput 6—11 

Line Counter 5-2 

QO. .tput-Format 8-6 
specifications sheet 

arrangement 2-2 

definition 1-5 

functions 1—6 
split control fields 6~8 

format 6-9 

used with field record relation 6—3C 
spread cards 6-2 

example 6-19 

specification 6-18 

trailer records 6-2 
SQRT (square root) operation code 7--5 

negative square root halt 7-6 
SR (see "subroutines" ) 
STACKER/OVERFLOW entry 8&9 
standard device assignment (table) 31F 
standard form length (printer) 5—4 

device entry 317 
standard system linkage E-1 
storage allocation 2-3,D-1 
STORAGF NEEDED TO EXECUTE entry 2=3 
stored—data format 3-11 
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structure of characters 6-3 
see also "collating sequence"; "character") 

SUB (subtract) operation code 7-4 
subroutine linkage FE~1 
subroutine operations 7-21 | 
subroutines in calculations 7-21, 7~32 

control level entry (SR) 7-31 

EXIT with subroutines ‘7-27 

GOTO with subroutines 7-22 

operation codes ‘7-22 

RLABL with subroutines ‘7-27 

ULABL with subroutines ‘7-28 
sum tables 

collating sequence B~-1 

disc file record retrieval methods 3~—13 

edit code functions 8-19 

edit codes B-8 

edit code table from Output sheet &~17 

indicator specifications B-2 

inverted print 2-4 

standard device assignment 3-18 

substitute device assignment 3-19 

valid indicators B-2 

valid operation codes B-6 
substitute device assignment 3-18 
suppressing leading zero (see "zero suppression") 
SUPPRESS SKIP TO CHANNEL 1 entry 2-12 
syntax ened of compiler 1-9 
system linkage FE-1 


TABLE entries 4-4 
table files 
(see also "array files") 
extension code 3-16 
special device support 3-19 
standard device assignment 3-18 
substitute device assignment 3~18,3~—19 
TABLE LOOKUP entry 2-7 
TABLE OR ARRAY NAME entry 4-14 
tables 
(see also "arrays"; "LOKUP operation"; "related tables and 
arrays" ; "item" } 
adding entries to a short table 4-4 
adding items to a table or array 4-€ 
alphanumeric entries 4—4 
alternating format 4-5,4-—14 
alternating tables 4-10 
building (see "loading" ) 
changing 4-3,4-5,4-€ 
compilation 4-5 
compile time 3—5,4-3,4~-6 
creating input records 4-4 
decimal positio 4—7 4-17 
defining tables (Extension sheet) 4-10 
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tables (continued ) 


definition 4--1 
definitions of terms C-1 
editing 4-10 
end of table 4—-5,4-10 
entry 4-4,4-5 
Extension specifications 4~—10 
file designation entry 3-9 
format 4-1,4--5 
full table (defirition) 4-4 
reneral discussion 4-1 
identifier 4--2 
input record 4—4 
item 4-1 
entries in input records 4-4 
| format 4-1,4—4 
index 4-2 
searching for 4-2 
(see also “LOKUP operation code") 
length of entry 
length of table 7-19 
loading 4-5 
compilation time 4-—3,4—5 
considerations 4-3 
placement in source deck 1-6 
re-execution time 4-3,4-6,4—12 
LOKUP (see "LOKUP operation code") 
maximum descriptions per program 4-1 
modifying the contents 8 
adding entries to a short table 4-4 
name 4-2 
alternating tables 4-14 
as field name 4-10 
as operand 4-2 
as result field 4-8 
Extension sheet 414 
File Description sheet 3-7 
rules for a 
number of entries per table 4-15 
numeric entries 
output Are Lg be 
ormatting (see "EXCPT operation") 
on one record 4—10 | 
via Extension sheet 4-9 
via Output sheet 4-9,4-10 
packed or binary format 4-6,4—15 
pre~execution time 3—4,4-3,4—6 
recording table data (rules) 4—4 
referencing tables 4-9 
eee also "LOKUP operation") 
via calculations 4-8 
related tables 4-4 
alternating format 4-5,4-14 
definition 4—4 
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tables (continued) 
length of entry specification 4-15 
naming 4-14 . 
searching ‘7-19 
(see also "LOKUP" operation code") 
resetting table items to zeros or blanks 820 
searching tables (see "LOKUP operation") 
sequence (Extension sheet entry) 4-17 
sequence of definition 4—11 
short tables (definition) 4-4 
types 4-3 
compile time 4-3 
execution time 4-3 
full 4-4 
pre~execution time 4—3 
s@lated 4—4 
Short 4-4 
XFOOT (see "XFOOT operation code") 
tables, reference (see "summary tables") 
TAG (tag) operation code 7—17 
tape device assignment 3~—1&,3-19 
TAPE LABELS entry 3-21 
TAPE REWIND entry 3-22 
TESTB (test bit) operation code 7-12 
use of resulting indicators 7-12 
testing and compare operations 7-10 
testing fields (see "field indicators") 
testing result of calculations (see "resulting indicators") 
TESTZ (test zone) operation code 7-11 
"TO" FILENAME entry (Extension sheet) 4-13 
total 
calculations ‘7~16,7—32 
operations (calculations; output) 1-13, 7—32 
output records &2 | 
control level indicator with 7-32 
overflow during total output &2,8-3 
printing (control level on input) 6-27 
accumulating totals 68-20 
after overflow 5—4,5-5 
resetting fields to zeros 8-20 
time lees 
TR entry (see "spread cards") 
track address 3-19 
trailer records (see "spread cards") 
translation table coding sheet 25 


! > H/D/T/E 8&8 

ibe OF Sth entry 3-8 

TYPE OF FORM entry 
Calculation sheet 7-31 
Control Card sheet 22 


Extension sheet 4-12 
_File Description sheet 3-7 
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TYPE OF FORM entry (continued) 
Input sheet 6-12 
Line Counter sheet 5-3 
Output sheet 8-7 
t of record (see "record type") 
Ter OF RECORD entry 8-7 
types of output records &2 


UDATF special word 85 
inverted print format 2-4 
UDAY special word &5 
ULABL operation codes ‘7-28 
UMONTH special word 8-5 
United Kingdom date format 8-5,8-17 
unpacked decimal format 6-3 
unsigned numeric literals ‘7-2 
update file 3-2 
(see also "multifile processing") 
conditioning 3-23 
look-ahead fields 6-2 
match fields 6-28 
special device support 3-19 
standard device assignment 3-18 
substitute device assignment 3-1°, 3-19 
"to" filename entry 4-12 
variable—-lenrth records 3-11 
user’s label_(ULABL) operation 7-2 
UYEAR special word a5 
U1-U8 indicators (see "external indicators"; "“indicators") 


valid add records 3-22 
valid indicators (summary table) B-2 
valid RPG II name (definition) 3-7 


XFOOT (crossfoot) operation code 7-6 
with table items 4-9 


z (zone) (see "record identification codes") 
Z—~ADD (zero and add) operation code 7—4 
Z-SUB (zero and subtract) operation code 7-4 
zero balance 
effect of edit code 8-22 
effect of inverted print . 2—4 
zeroing fields 
blank after 8-20 
subtract operation ‘7-4 
ZERO OR BLANK entry 6-33 
zero suppression — 
effect of inverted print 2—4 
leading zero suppression 8-5 
relation to edit word or edit code =22 
zone 
(see also "character structure"; "PORTION entries") 
bits 6-4 | rig 
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zone (continued) 
bytes 6-4 
eharec te es grouping by by equal zone 6-21,6~-22 
move opera -7 
move zone operations 7-9 
test zone operation J=11 
unpacked decimal format 6~35,6—5 

zone punch 6~3. 


01-99 indicators 
(see also "indicators"; "numeric indicators") 
Calculation sheet uses 7—33,7=39 
effect of SETON and SETOF 7-13 
general description of use 6-16 
Input sheet uses 6~16 
field indicators 6-32 
field record relation 6--29 
record identifying indicator 6-16 
Output sheet use 8&13 
1P bears page) indicator 
see also "indicators"; "first pare indicator") 
as output indicator 8-13 
restriction with output fields ©-14 
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Thank you for your information............. 


Our goal 1s to provide better, more useful manuals, and your 
comments will help us to do so. 
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